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FLIP,FLIP,FLIP. 


Au lieu de traîner dans les bars louches pour 





Benoit PIRO 





GC 
L'or 





dépenser désinvoltement votre argent en parties de billard 


électronique, vous 
taper ce programme : 


DRE PME< 
2 RM => >XC< 
3 REM -—- ————  )WD< 
4 REM --- Benoit PIRO .....,, ---- >BEX 
D REM —— ——— DRF< 
b REM -—- ———- }16X 
7 REM -------- FLIPPER --—————-- >NH< 
B REM ------- ?EJ4 
9 REM ?EK< 
19 CLS:60SUB 1740 DE“ 
26 SPEED INK 1.1:DIM #(20,26):mu=i: >RC< 
n$="P.benoit “:ms=26000 

36 SYMBOL AFTER 32:SYMEOL 158,.249,40 >WD< 


40,20, 40.478446, 18,418 
40 SYMBOL 157,40,429, 420, LB0+U40, LB DHE< 
0+460, 420, 420,40 

56 SYMBOL 155,418, 418, 78446 >CF< 
51 SYMBOL 173,0,4,3,11,30,63, 127,33 DUG< 
52 SYMBOL 174,0, 16,32,95,64,252,126 LH 
,255 

53 SYMBOL 175,193,128,0,0,0,0,0,0 
54 SYMBOL 176,35, 33,0,0,9,0, 0. à 


EX 
>RKK 


J9 REM #JL< 
6ÿ MODE 1 2HG< 
70 ba=4:sc=0: t=0: se=500: vic=d ?DH< 
75 WHILE sd$}"":sd$=INKEYS: END ?CN€ 
76 WHILE sd$="":sd$=INKEY$: WEND >CP< 


80 c=18:1=23:s0=û:d=0:q=0:ba=ba-ii I ;JJ< 
F ba=ÿ THEN 1586 

90 FOR q=3 TO 18:LOCATE q,4:PRINT C >PK£ 
HR$ (143) : f (q,4)=207:NEXT 

95 PEN 1:BORDER 0:PAPER 4 >YQ< 
196 FOR q=5 TO 24:LOCATE 2,q:PRINT >HB< 
CHR$ (143) :#(2,q}=207:LOCATE 19,q:PR 

INT CHR$(143) :#(19,q)=297:NEXT 


191 BORDER xz5 ?CC< 





devriez rester devant 


c'est beaucoup plus économique , petits garnements ! 


116 FOR g=2 TO 19:LOCATE q,25:PRINT :MC< 
CHR$(131):#(q,25)=131:NEXT 


126 FOR q=1 TO Bi #KD< 
125 a=a+i >YJ< 
130 READ k,km.ch ?NE< 


149 LOCATE k,km:FEN 3:PRINT CHR$ (ch > 
143 ENT 9,1,2,1,1,8,2,1,0,2,1,-2,1, ? 
1,0,4 

144 ENV 9,1,15,1,1,-3,2,1,0,1,1,0,1 
,12,-1,4 

145 IF a>80 THEN 150 ELSE SOUND 1+1 >PLé 
bch,10,15,9,9:SOUND 2+B,ch-100, 10, 
15,9,9:S0UND 4+32,ch+400, 19, 15,9,9 
154 #{k,kmi=ch 

16 NEXT 

165 PEN 6:LOCATE 25,2:PRINT CHRS (17 > 
3)CHR$(174):LOCATE 25,3:PRINT CHR$( 
175) CHR$ (176) :LOCATE 28,3: PRINT CHR 
$(173)CHR$ (174) :LOCATE 28,4: PRINT C 
HRS (175) CHRS (176) 

1bé LOCATE 25,20:PRINT CHR$(173)CHR >NP 
$(174):LOCATE 25,21:PRINT CHR$ (175) 
CHR (176) 

167 LOCATE 23,9:PRINT"FLIP,FLIP,FLI 
P...":LOCATE 26,11: PRINT"FLIPPER:" 
170 DATA 2,4,214,19,4,215,3,5,212, > 
18,5,213,5,6,214,6,6,267,8,6,214,9, 
6,207,11,6,214,12,6, 207, 14,6, 215, 16 
,6,213,17,6,215,5,7, 207,6, 7, 212,8, 7 
,207,9,7,212,11,7,207,12,7,212,14,7 
,213,15,7,215,17,7,207,3,8,215,8,B, 
155, 11,8, 155, 15,8,155, 17,8, 267 

171 DATA 4,9,215,5,8, 213 >CK« 
180 DATA 3,9,297,13,9,158,17,9,207, >LK< 


votre AMSTRAD et 


3,19,212,5,10,214,6,16,212,12,10,21 
4,13,10,207,5,11,207,17,10,207,7,i1 
,214,12,11,207,13,11,212,17,11,267, 
5,12,207,7,12,207,12,12,159,9,13,21 
3,7,13,212,13,13,164,17,13,207 
198 DATA 4,14,215,10,14,164,16,14,2 
14,17,14,207,4,15,212,13,15,164,16, 
15,213,17,15,207,17,16,207,3,17,215 
,18,17,164,17,17,207,3,18,212,6,19, 1 
64,12,18,164,17,18,207,17,19,207,17 
,29,207,15,21,214,17,21,207,4,22,2 
5,17,22,207,4,23,207,9,23, 144,15, 23 
,144 
260 DATA 3,24,158,4,24,207,5,24,207 
.17,24,207,18,24,158,16,24,214 
216 RESTORE 
215 REM 
220 #(4,23)=215 
239 GOSUB 796:G0SUB 829:DI:LOCATE 1 
8,23:PEN 1:PRINT "o":PEN 3 
249 WINDOW#1,3,18,1,3:PAPER#:,2:PEN 
#1,3:CLS#1:LOCATE#1,2, 1: PRINT#1,"R 
ECORD: ";ms:LOCATE#1, 2,2: PRINT#1,"5C 
CRE :"s;sc:LOCATE#1,2,3:PRINT#1, "BAL 
LES: “;ba 


256 IF vic=0 THEN LOCATE 29+(20-LEN : 


(N$))/2,15:PRINT n$:LOCATE 21,17:PR 
INT “Detient le record !" 
260 WINDOW#2,22,49,5, 10 


270 PRINT#2, "Appuyer sur “;"fire ou 
"s:CHR$ (240) 

280 IF INKEY(76)=0 OR fe=1 THEN 28 : 
5 


281 IF INKEY(9){20 THEN 289 
285 EI 






?LL£ 


>IC< 


FD 
DKJ< 
ME: 
PNF< 


2YG< 


279 ac=0:al=-1:CLS#2: IF t=-i THEN D 
ILOCATE 18,12:PRINT CHR$(213) :f(18 
,12)=213:EI: AFTER 100,0 GOSUB 1416 
300 IF t=0 THEN AFTER 209,0 GOSUB 3 
29:DI:LOCATE 18,12:PRINT “ ":EI 

310 GOTO 336 

328 ON INTIRND#4)+1 GOSUE 1416, 1450 
1486, 1520: RETURN 

350 aci=ac:ali=al:cizc:11=1 

340 f=f(c+ac,l+al):ON ac+2 GOTO 850 
869,870 

356 c=ctaci:1=1+ali 

369 CALL &BDi9 

370 DI:LOCATE ci,11: PRINT " "EI 
380 c=c+ac:1=]1+al 

396 DI:LOCATE €, L:PRINT “o":El 

400 IF c=18 AND 1=23 THEN ba=ba+2?: 
ENT 2,100,25, 14: SOUND 2,206, 49, 15,0 
,2:pr=1i:B0RDER 6,2:G0SUB 1676: BORD 
ER 6:G60T0 1579 

465 IF c=13 AND (1=7 AND 1156) THE 
N al=-] 

419 IF f<;164 THEN 456 

426 ac=-1+INT (RND#3) : al=-1+INT (RND* 
3):1F ac= AND al= THEN 429 

36 pr=5:G60SUE 166ÿ 

455 IF c=18 AND 1=i1i THEN 1=16 

449 DI:LOCATE c,1:PRINT CHRé(iédi:c 
=c+ac!1=1+al:EI 

458 IF s0=1 THEN 48é 

460 IF c<;15 THEN 486 

476 50=1:DI:LOCATE 18,12:PRINT CHR$ 
(214):#(18,12)=214:E1 

499 IF c=3 AND 1:12 AND 1‘i7 THEN E 
NT 3,109,-25,109:SOUND 2,5009,36, 15,6 
43: AFTER 450,1 GOSUE 1739: mu=2: IN 
3,24,b:ac=0:pr=30:G60SUB 1670:1F al= 
9 THEN al=1:G60T0 556 ELSE 559 

496 IF c=3 AND 1=21 AND al£>-1 THEN : 
ac=:al=1:G0TD 55% 

90% IF c=18 AND 1£iÿ AND s0=1 THEN 
INK 1,24,6:ENT 3,266,-25,5:SOUND 2, 
769,26,15,0,3:pr=50:G60SUB 1676 

914 IF 1=24 THEN 1566 

320 IF c=b AND 1=12 AND al:>6 THEN 
ENT 3,196,-25,16:SOUND 2,496,46,15, 
6,3:pr=26:G0SUB 1676:IF al=-i THEN 
ac=0:al=-1:G0T0 556 

936 IF c=ib AND 1:18 AND al=i THEN 
ac=4:G0T0 556 

939 IF (c=4 AND 1=8) AND f(4,9=715 
THEN al=-1 

J36 LOCATE 4,9:PRINT CHR$(215):IF € 
=4 AND 1=9 THEN SOUND i,149,19,15,7 
,7:5c=5c+5:G0SUB 1676 
349 IF al=1 AND ((c=18 AND 1=8) OR 
{c=14 AND 1=12)) THEN DI:LOCATE cl 
PRINT " “sl=]#{:LOCATE c, L:PRINT ‘ 
o":EI 


2MM< 


#HD< 


>PE< 
PAF< 


>KEK 
>UH£ 


>UJ< 
?CK< 
’HL< 
70M< 
?PN< 
?XE< 


2DK< 


30F< 
2MG< 
2TH< 
3XN€ 
?WJ< 
RES 
FNL< 
MMS 


?CN£ 


XP 


?EF* 


?EG< 


> IH 


#EJ< 


2RF< 


BG 


2NE£ 








590 IF (INKEY(9)=6 OR JOY(4)=4) THE 
N IF g=9 THEN GOSUB 670 ELSE 56 EL 
SE IF g=1 THEN GOSUB 790: 


960 IF (INKEY(6)=0 OR JOY()=8) THE 


N IF d=$ THEN GOSUB 730 ELSE 579 EL 
SE IF d=i THEN GOSUB 829 


364 LOCATE 12,12:PRINT CHR$(155):#{ > 


12,12)=155 
963 REM 
979 IF c=19 AND (1=27 
al=i:ac=d:G0T0 856 
986 IF 1226 OR ci5 


970 IF 1=20 THEN 630 

606 IF c16 THEN 639 

610 IF g=0 AND 1=22 THEN al=6:6070 
650 


620 IF g=1 THEN IF (1=21 AND c:5) D 


R (1=22 AND c£7) THEN ac=-i+INT (RND 
#2):al=-1:G0T0 £5@ ELGE IF 1224 THE 
N ac=b:al=1:G0T0 65ù 

630 IF d=6 AND 1=22 THEN a1=6:G0T0 

650 

644 IF d=1 THEN IF (1=21 AND c>12) 

OR (1=29 AND (c>ii AND c‘15)) THEN 

ac=INT (RND#2) :al=-i 

&5ÿ REM 

bëû GOTO 336 


678 IF c£ié AND c>5 AND 1=22 THEN 6 : 


86 ELSE 748 


685 DI:LOCATE c,L:PRINT " "El: IF a > 


c=ÿ THEN ac=-1+INT (RND#2) 
bb al=-i:c=c+ac: 1=]+al 


149,35: DRAW 140,45: DRAM 68,45: PLOT 
65,43,1:DRA 72,35: DRAN 175,64: DRA 
W 127,72: DRAU 45,43:EI 
710 g=1 
720 RETURN 


736 IF c:16 AND c€15 AND (1223 OR 1 : 


=21) THEN 74 ELSE 7éb 


749 DI:LOCATE cl: PRINT " "EI: IF à : 


c=0 AND c£i4 THEN ac=INT(RND#2) EL 
SE IF c=14 THEN ac=û 

750 al=-l:c=ctac:1=1+al 
760 DI:PLOT 235,35, 4: DRAM 
AN 163,45: DRAM 163,235: DRAW 235,35:F 
LOT 234,35,1:DRAW 238,43: DRAW 180,7 
2:DRAW 172,64: DRAW 233,33:EI 

779 d=i 

789 RETURN 


OR ac=ù) THEN : 


OR c>i4 THEN 656 : 


Pau ; 


RQ 
3WL< 


RME 


?ER€ 
760 DI:FLOT 68,45,0:DRAN 68,35: DRAH : 


2VR£ 


790 DI:PLOT 65,43,6:DRAN 72,35: DRAM >XT< 


135,64: DRAW 127,72: DRAM 65,43: PLOT 
68,45,1:DRAW 68,35:DRAWN 149,23: DRA 
W 145,45:DRAK 68,45:EI 
869 g=0 
816 RETURN 
2ÿ DI:PLOT 234, 


25,8: DRAW 238,43: DR 


ALJ< 
>NE< 
YL< 





BEK 33: P 


AW 186,72: DRAW 172,64: DRAW 233,33: 
LOT 235, 35,1:DRAN 235,45:DRAW 163,4 


Ji DRAN 163 35: DRAM 235,35:EI 
836 d=0 
846 RETURN 


856 ON al+2 GOTO 886,956, 1026 

860 ON al+2 GOTO 1086, 1080, 1136 

870 ON al+2 GOTO.1190, 1266, 1326 
880 IF #=207 THEN IF c=3 THEN ac=-( 
1=19 OR 1=6):al=-1:60T0 370 ELSE ac 
=(1=5):al=1:6070 370 

885 REM 


890 IF +=214 OR f=215 THEN ac=INT(R > 


ND#2):al=-1:G0T0 374 


LME 
>RNC 
>PF< 
>JEé 
>NR< 
>ETé 


?LV< 


906 IF +=212 THEN ac=l:al=1:60T0 35 >YK£ 


) 


919 IF #=155 THEN ac=-1+INT (RND#2): : 


al=i:pr=5:GOSUR 1666:G0TD 376 


920 IF #=158 THEN ac=-1+INT (RND#2): 


al=-i+INT(RND#2):IF ac=ù AND al=û T 
HEN al=-1:G60T0 359 ELSE 356 


959 IF #=215 THEN ac=ÿ:al=-1: 6070 3 


7 

935 IF c=4 AND 1=16 AND #i4,9)=215 
THEN al=1 

940 GOTO 379 


950 IF #=267 OR f=214 THEN ac=i:al= :6ù 


INT RNDK2): IF 1=13 OR 1=9 OR c=6 TH 
EN al=i:ac=0:G0T0 376 ELSE 370 


969 IF f=215 THEN ac=6:al=-1:G0T0 3 > 


Sr) 


970 IF f=212 THEN ac=é:al=j:G0T0 35 : 


ÿ 

986 IF #=155 THEN ac=-i+[NT (RND#2): 
al=i:pr=5:G60SUB 1660:G0T0 35û 

996 IF #=198 THEN ac=-1+INT (RND#5): 
al=-i:pr=16:GOSUB 1666: G0TO 350 
1966 IF c:16 AND 1=22 AND d=i THEN 
GOSUB 155%:ac=i:al=é:G0T0 376 

1961 BORDER 2x5 

1916 GOTO 370 

1926 IF f=247 OR +=712 
=i:60T0 37à 

1959 IF +=215 THEN ac=i:al=-1:G0TO 
359 


1646 IF #=214 THEN ac=-{+2# (INT (RND + 


#2)):al=6: IF czié THEN ac=b:60T0 27 
9 ELSE 359 
1656 IF =156 THEN ac=-i+INT (RND#3) 
tal=-1+INT (RNDK2) :pr=16: GOSUE 1666: 
IF ac=6 AND al=à THEN al=-1:G0T0 35 
à ELSE 350 


1969 IF f=213 THEN ac=1:al=1:6070 3 


59 
1679 GOT 374 


1975 2xS=INT (RND#3) :42S=INT ÉRNDRND :Ÿ 


#6): BORDER 2x5,x25 


m1 
Æ 


THEN ac=û:al :OD4 


>RG< 


1888 IF f=297 THEN IF 1=5 AND cé À CE: 


ND c£14 THEN ac=-i+INT(RND#3):IF ac 


= THEN al=1:G0T0 376 ELSE a1=0:G0T 
0 376 ELSE ac=1i+2#(c=14 AND f(13,5) 
=ÿ):al=0:G60T0 370 


1990 IF #=212 THEN ac=1:al=0: G60T0 3 : 


50 

1199 IF f=213 THEN ac=-1:al=0:G60TO 

390 

1110 IF #=195 THEN ac=-1+INT (RND#3) 
:pr=5:GO0SUB 1660:1F ac=0 THEN al=i: 
GOTO 350 ELSE al=INT (RND#2) :G0T0 35 
) 

1129 GOTD 370 

1136 IF f=214 THEN ac=-1:a1=6:G0T0 

350 

1146 IF f=215 THEN ac=1:al=0:G60T0 3 
Jù 

1156 IF f=212 THEN ac=-1+INT (RND#2) 
tal=-1:G0T0 359 

1166 IF f=158 THEN pr=10:G0SUB 1660 
IF c=13 THEN ac=-1+INT(RND#3):IF a 
c=0 THEN al=-1:607T0 350 ELSE al=0:6 
OTO 354 ELSE ENT 3,199, -50, 19: SOUND 
2,100,40,15,0,3:ac=0:al=-1:pr=13:6 
OSUB 1676:G60T0 350 


1176 IF f=144 THEN ac=INT(RND#2):al 


=-{:G0T0 354 

1186 GOTO 376 

1199 IF +=267 THEN IF c=4 THEN ac=û 
:al=1:6070 370 ELSE IF c=ié AND 1{i 
1 THEN ac=ÿ:al=-1:G0T0 376 ELSE ac= 
-l:al=-1:G60T0 370 

1209 IF f=213 THEN ac=-1:al=1:60T0 
350 


1219 IF #=214 THEN ac=-1+INT (RND#2) : 


tal=-1:G0T0 354 


1226 IF +=215 THEN al=(c=3 OR c=135) : 


:IF al=-1 THEN ac=8: 6070 376 ELSE a 
c=-1:G0T0 350 

1236 IF f=212 THEN ac=INT(RND#2):1F 
ac=@ THEN al=i:G60T0 370 ELSE al=0: 
GOTO 376 

1249 IF f=155 THEN pr=5:60SUB 1660: 
ac=INT (RND#2) : IF ac=0 THEN al=1:G0T 
0 376 ELSE al=6:G60T0 379 

1256 GOTO 376 

1260 IF f=2ÿ7 THEN IF c=18 THEN al= 
lsac=@:GOTO 370 ELGE IF 1€13 AND 1 
{319 THEN ac=-1+INT (RND#2) :al=1: GOT 
0 370 ELSE ac=-1:a1=INT (RND#2) : 60TO 
370 

1276 IF f=212 THEN ac=-Î:a1=0:60T0 
350 

1286 IF f=214 OR f=15B THEN ac=ÿ:al 
=-1:G07T0 356 

1290 IF f=213 THEN ac=ÿ:al=1: 6070 3 
EL) 


1306 IF +=195 THEN ac=INT(RND#2):al > 


=1:pr=5:60SUB 1660: G0T0 350 
1319 GOTO 37 


>DD< 


WE 
2WF< 


>16< 


?KH< 


MK 


+16 


#YH 


FAJ< 


2MK< 


?1L< 


?RM< 





1320 IF f=297 THEN ac=-1+INT (RND#2) 
:al=i:IF c=12 THEN al=0:ac=-1:G0TO 
370 ELSE 370 


?XG< 


1539 IF #=214 THEN ac=-1:al=-1:G0T0 >YH< 


350 
1340 IF f=215 THEN ac=INT (RND#2): IF 
ac=0 THEN al=1:60T0 350 ELSE al=0: 
60TO 359 
1350 IF #=212 THEN ac=INT (RND#2): IF 
ac= THEN al=-1:G0T0 350 ELSE al=ÿ 
:60T0 356 
1360 IF f=155 THEN ac=-1+INT (RND#2) 
tal=i:pr=5:60SUB 1660: G0T0 370 
13576 IF f=213 THEN ac=-1+INT (RND#2) 
tal=1:60T0 350 
1390 IF f=158 THEN ac=-1+INT (RND#3) 
tpr=10:G0SUB 1640:IF ac=0 THEN al=- 
1:60T0 350 ELSE al=0:60T0 350 
1396 IF f=144 THEN ac=i:al=0:G0T0 3 
7 
1499 GOTO 379 
1416 REM 
1426 GOSUB 1519: AFTER 369,8 GOSUB 1 
450 
1436 DI:LOCATE 16,23:PRINT CHR$ (215 
1:#(16,23)=215:LOCATE 17,22:PRINT C 
HR$ (269) : F(17,22)=0:LOCATE 9,10:PRI 
NT CHR$ (164): #(9,19)=1864:EI : RETURN 
1449 DI:LOCATE 16,23: PRINT " ":f(16 
,23)=0:LOCATE 17,22:PRINT CHR$ (247) 
:f(17,22)=207:LOCATE 9,19: PRINT “ “ 
:#(9,10)=0:EI: RETURN 


1450 AFTER 366,6 GOSUB 1526:GOSUE 1 ; 


44) 


FAT 


>XK< 


?NL< 
?0M< 


?IN€ 


?KP< 
#ÂF< 
?LG< 
>MH£ 


>KJK 


2YK< 


1466 DI:LOCATE 7,5:PRINT CHR$(212): >CM< 


#(7,9)=212:ET:RETURN 


1470 DISLOCATE 7,S:PRINT " “:#7,5) : 


=0:EI: RETURN 

1480 REM 2 

1499 AFTER 309,6 GOSUB 1419:G0SUB 1 

390 

1506 DI:LOCATE 16,26:PRINT CHR$ (214 

):#(16,20)=214:LOCATE 16,21:PRINT C 

HR$(207):f(18,21)=214:LOCATE 16,22: 

PRINT CHR$(213):#(16,22)=213:LO0CATE 
13,5:PRINT CHR$ (212): #(13,5)=212:E 

IRETURN 


1510 DI:FOR x=20 TO 22:LOCATE 16,x: : 


PRINT ® “:#(16,x)=0:NEXT:LOCATE 13, 
SEPRINT " ":#(13,5)=0:EI: RETURN 
1520 REM 3 

153% AFTER 309,0 GOSUB 1480:G0SUB 1 
470:GO0SUB 1449 

1549 DI:LOCATE 10,5:PRINT CHR$ (212) 
1F(10,5)=212:LOCATE 16,22:PRINT CHR 
$(214):#(16,22)=214:ET:RETURN 


1559 DI:LOCATE 16,5:PRINT " “:#(19, : 


9)=0:LOCATE 16,22:PRINT ‘ ":$(16,22 
}=: ET :RETURN 


1560 SOUND 4,409, 10,15: SOUND 4,500, 
| 10,15: SOUND 4,600,30,15 


1579 DI:LOCATE c,L:PRINT " ":G0SUB 
1440:G0SUB 1470:60SUB 1510:60SUB 15 
50:DI:LOCATE 16,5:PRINT " “:LOCATE 
17,12:PRINT “ ":#(16,5)=:# (17, 12)= 
0:El:t=(t=0):GOTO 80 

1580 ENT 2,100,-20,5:SOUND 2, 200, -5 
0,7,0,2 


1590 DI:PEN 6:LOCATE 22,20:PRINT RE : 


MAIN(6):PEN 1::EI:CLS 
1395 REM 
1696 LOCATE 5,5:PRINT "SCORE :";sc 
1619 CLEAR INPUT:IF sc>ms THEN LOCA 
TE 1,10:PRINT "Vous avez battu le p 
recedent record qui etait de";as;"p 
oints. ":PRINT:PRINT "Entrez votre n 
om 5. V,P,.":PRINT: INPUT n$:n$=UPPERS 
(LEFT$(n$, 29) ) 

1626 ms=MAX (ms, sc} 

1639 LOCATE 1,25:PRINT "Appuyez sur 
R pour rejouer" 


164 IF UFPERS(INKEYS) <2"R" THEN 16 * 


49 
1658 RUN 


166ù ENT 2,106,46,2:GOUND 2,260+INT : 


(RND#306), 19, 15,,3 
1678 sc=sc+tpr#mu 


1689 DI:LOCATE#1,9,2:PRINT#I,sc:CLS 


#2:EI 


1699 IF sc:=se THEN ENT 1,269,20,5, > 


206,20,3:SOUND 2,164,3i,7,0,1:ba=ba 
+1:LOCATE#1,19,3:PRINT#1 ,ba:se=2*6e 


1700 IF vic=i THEN 172 
1719 IF scms THEN LOCATE 20,15:PRI 


NT “ VOUS detenez "sLOCATE 26 
17: PRINT " le record ! "iv 
ic=i 


1726 INK 1,24:RETURN 

1730 mu=1:INE 3,6:RETURN 

1746 LOCATE 13,2:PRINT'" jeu de FLIFP 
ER'":LOCATE 4,5:PRINT"Ce flipper se 
joue au clavier ou au":LOCATE 1,6:P 

RINT' joystick en inclinant celui-ci 
a droite":LOCATE {,7:PRINT" pour 5 

oulever le taquet de droite" 

1745 LOCATE 1,8:FRINT'ou en l'incli 

nant a gauche pour le":LOCATE 1,9:F 
RINT"taquet de gauche" 

1759 LOCATE 2,19:PRINT"Four le clav 
ier,enter pour le taquet":LOCATE À, 
1i:PRINT"de droite,et control pour 
le taquet de":LOCATE i,12:PRINT"qau 
che" | 

1760 LOCATE 25,25:PRINT" TOUCHE? ": a 
$=INKEYS: IF a$="" THEN 1760 ELSE 17 
76 

1770 RETURN 


?RN£ 


>< 


>MJ< 
>FK< 


ML 
PAM 
>PN< 


AUX 


2HP 


LA 


>XR 


éponse just 
half: Du P Ru e 


SMAYE fermes fausse 


SAURAS-TU RAMENER LE CONUVOI 


Pour continuer 


il faut toujours appuyer sur une tou L” 


PRÉ ren on mpanp qq ee 


A A SA A A A AA AR A re A AA A A AA A OP AA AE A A RS A A A BA AS 


Henri CHAUVET 





Vous aimez les trains et le calcul de tête ? Alors Calcul Mental est fait pour vous. Le but 
du jeu : ramener un convoi intact à la gare. Chaque mauvaise réponse détruit un wagon. 
Attention ce programme fonctionne uniquement sur 664 et 6128. 


1 REM---pour changer le temps d'af :JB{ 
fichage des overations, jouer sur 1 

a valeur de "at" a la ligne . 

26 ENV 1,15,1,1,15,-1,1:2ENT -1,2,1, PHC< 


1,2,-1,1 


34 ENV 2,15,-1,16:ENT -3,60,-2,7  >GD< 
46 CLS:GOSUB 1970 ?ME< 
96 GOSUB 2178 DXF< 


b@ DEF FN deek(x)=PEEK(x)+256*PEEK( >MG< 
xHi):REM---redefinition des caracte 


res 

74 RM MH 
89 REM---initialisations--- >UJ< 
99 REM---——— ?PK£ 
196 RANDOMIZE TIME/1990 NE 
119 INE O,1:INK 1,29:INK 3,20: INE 3 ?2C{ 
19 

129 m=bixt=siyt=22ixtf=ibix=2liy=3: AD< 
J=0: f=0 

150 WINDOH #1,1,49,1,18:WINDOW #2,1 >KE< 
,49,19,25 

149 PEN ZHLOCATE xt,yt:PRINT tr$  >TF< 
150 MAS 199,1:PLOT 1,28,2:DRAWR 63 >NG< 
9,6:PLOTR -5,-2: DRAWR -833,0 

164 IF partie>6 THEN 250 AH 
179 REM---- >MJ< 
189 REM---choix de l'epreuve--- ?FK< 
196 REM----— ?PL< 


266 PEN 1:LOCATE 19,2:PRINT"Chaque >PC4 
r'+CHR$(212)+"ponse juste":LOCATE 1 
1,3:PRINT'remplit un wagon.“ 

219 LOCATE 19,5:PRINT"Chaque r'+CHR 
$(212)+"ponse fausse": LOCATE 9,6:PR 
INT'en fait dispara"+CHR$(215)+"tre 
un, 

220 PEN 2:LOCATE 3,9:PRINT"SAURAS-T 
U RAMENER LE CONVOI INTACT ?" 

236 PEN 1:LOCATE 13,15:PRINT"Pour € ?TFé 


2XD< 


DJE< 


ontinuer":LOCATE 4,16:PRINT"il faut 
toujours appuyer sur une touche." 

246 CALL &BB06:CLS#1 

254 PEN 3:LOCATE 1,19:PRINT"Quelle 

op"+CHR$(212)+"ration choisis-tu ?“ 

260 PEN 1:PRINT:PRINT"1 "3: PEN 2:PR 
INT'addition":PEN 1:PRINT"2 ":: PEN 

2:PRINT"soustraction":PEN 1:PRINT"3 
“s:PEN 2:PRINT'aultiplication":PEN 
1:PRINT"4 “3:PEN 2:PRINT'division" 
PEN i 

270 CLEAR INPUT 

280 op$=INKEYS 

294 IF op$="" OR INSTR("1234",op$}= 

à THEN 280 

360 CLS#1 

310 LOCATE 5,5:PRINT"L ‘op"+CHR$ (212 
}+"ration ne reste affich"+CHR$ (212 
)+"e":LOCATE 9,6:PRINT"que quelques 
instants." 

320 LOCATE 8,8:PRINT"Tu ne dois pas 
r'+CHR$ (212) +"pondre":LOCATE 7,9:P 

RINT'avant qu'elle ne s'efface." 
330 PEN 3:LOCATE 1,13:PRINT "Quel ni 

veau choisis-tu ?" 

349 PEN 1:PRINT:PRINT"1 "3 :PEN 2:PR 
INT"champion":PEN 1:PRINT"2 “s: PEN 
2:PRINT'"entra"+CHR$ (215) +"n"+CHR$ (2 
12):PEN 1:PRINT'Z “5: PEN 2:PRINT"d" 
+CHR$ (212) +"butant" 

359 CLEAR INPUT 

360 ni$=INKEY$ 


376 IF ni$="" OR INSTR("133" ,n1$) =0 : 


THEN 366 
386 at=28006#VAL (ni$) 


390 ON VAL(op$) GOSUB 420,599,770,9 ? 


4 
460 GOSUB 1756 


TG< 


?BH€ 


2KJ< 


RK£ 
?CL< 
?TM 


>XD< 
?KEX 


DXF< 


WG 


>FH 


410 REM-————"— »WFé 
420 REM-—-addition-— UE 
430 REM-————"— >XH< 
449 FOR ng=1 TO 10 >RJ< 
450 CLS#:PEN 1 >RK 


460 a=INT(RND#98)+2:1F aa=a THEN 46 KL 
9 ELSE aa=a 

470 a$=MID$ (STR$ (a) ,2) }EM< 
480 b=INT (RND#98)+2: IF bb=b THEN 48 }XN< 
0 ELSE bb=b 

499 b$=MID$ (STR$ (b) ,2} > JP 
900 xx=x-LEN(a$) :yy=y:x$=a$:GOSUB 2 >CF< 
480 

919 xx=x-LEN(b$) :vy=y+3: x$=b$: GOSUB >HB< 
2480 

D20 xx=4x-LEN(D$)-2: yy=y+3: x$="4 "1:60 >XH£ 
SUB 2480 

939 LOCATE xx,yy+2:FOR trait=i TO L >CJ< 
EN(b$)+2: PRINT CHR$(154)5:NEXT trai 

t 


949 so=atb:50$=MID$ (STR$ (so), 2) ?HK< 
990 6OSUB 1130 ?1L< 
560 NEXT nq NM 
970 RETURN >RN€ 
HOb: REMAennnnce >WPé 
596 REM---soustraction--- ?MQ< 
00. RE ?Q6< 
b1è FOR ng=1 TO 10 >< 
624 CLS#1:PEN 1 0 


639 a=INT(RND#(89))+19:IF aa=a THEN >XK< 
634 ELSE aa=a 

649 a$=MID$ (STR$ (a),2) >DL< 
650 b=INT(RND4#98)+2: IF bb=b THEN 65 >< 
@ ELSE bb=b 

6b@ IF b>a THEN 658 ?HN€ 
679 b$=MID$(STR$(b),2) > JP 
68 xx=x-LEN(a$):yy=y:x$=a$:GOSUB 2 >MQ< 
480 


698 xx=x-LEN(b$) : yy=y+3: x$=b$: GOSUB >TR< 
2484 

769 xx=x-LEN(b#$)-2:yy=y+3:x$="-"1: 60 > ZH< 
SUB 2489 

714 LOCATE xx,yy+2:F0R trait=1 TO L >CJ< 
EN(b$)+2:PRINT CHR$(154)::NEXT trai 

t 


720 so=a-b:50$=MID$ (STR$ (50) ,2}:IF à2ZK< 
5018 THEN 50$="0"+650$ 

7350 GOSUB 1136 LE 
74ÿ NEXT nq 2NM< 
750 RETURN >RN€ 
760 REM---------- >XP< 
770 REM---multiplication--- ?BQ< 
780 REM------—- IR 
798 FOR ng=1 TO iÿ FAT 
800 CLS#1:PEN 1 #QJ< 


816 a=INT (RND489)+16:1F aa=a THEN 8 
16 ELSE aa=a 

829 a$=MID$ (STR$ (a), 2) 

834 b=INT (RND48)+2: IF bb=b THEN 836 
ELSE bb=b 

849 b$=MID$ (STRS(b),2) 

890 ux=x-LEN(a$) :vy=y:x$=a$: GOSUR 2 
406 

868 xu=x-LEN(b$) : vy=v+3: x$=b$: GOSUB RG 
2486 

874 xx=x-LEN(Db$)-2: vy=y+3: x$=" 4": 60 2 

SUB 2489 

889 LOCATE xx,yy+2:FOR trait=i TO L ?LTE 

EN(b4)+2: PRINT CHR$(1S4)::NEXT trai 

t 

896 so=a*#b:50$=MIDS$ (STR$ (50), 2; 3QU< 


>JK€ 


>DL< 
>HM< 


>HN< 
>LP4 


960 GOSUR 1139 3YK£ 
914 NEXT nq 2ML£ 
929 RETURN >0M< 
930 REM-------------- 3CN£ 
944 REM---division--- >DPé 
994 REM-------------- EG 
966 FOR ng=i TO 14 IR 
974 CLS#i:FEN i ?ITÉ 
989 a=INT(RND*89)+16:1IF aa=a THEN 8 TUE 
19 ELSE aa=a 

990 a$=MID$(STRS (a), 2) 3MVK 
1999 D=INT (RND#0}+2: IF bb=b THEN 16 >QB< 
96 ELSE bb=b 

1914 b$=MID$(STR$ (b),2) 310€ 
1626 xuzu-LEN(a$)-2: vy=v: x$=a$: GOSU :FD< 
B 248û 

1936 xu=u+iiyy=vix$=b$: GOSUB 2484  :QE< 
1649 FOR trait=1 TO 7:LOCATE xx-2,y >KF< 
+érait-1:PRINT CHR$(I49):NEXT trait 
#LOCATE xx-2, v+2: PRINT CHR$ (191) +CH 
R#(154)+CHR$ (154) +CHR$ (152) 

165 so=a\b:50$=MID$ (STR$ (50) , 2) ?KG< 
1966 GOSUR 1394 6H£ 
1976 NEXT nq 2MJ£ 
1989 RETURN GE 
1009 REM-—-—— PL 


1100 REM-correction de +, - et *+ - 


1129 REM 
1136 FOR w=i TO at:NEÏT w:INK 1,1:P 
EN 2 


1140 LOCATE 1,15:PRINT" Quelle est t : 


a r'"+CHR$(212)+"ponse ? “::PEN 3 
1150 CLEAR INPUT: INPUT*",re$ 

1168 FOR ct=1 TO LEN(re$) 

1179 IF ASC(MID$(re$,ct.1}}€47 DR À 
SC(MID$(re$,ct,11)257 THEN 1184 ELS 
E 119 

1180 PRINT CHR$(7):LOCATE 25,15:PRI 
NT CHR$(18):LOCATE 25,15:G0T0 1154 
1196 NEXT 

1206 re=VAL(re$} 

1219 PEN 2 

1229 FOR w=1 TO 4G6:NEXT w:LOCATE 1 
,19: PRINT CHR# (18) 

1239 INK 1,25 

1246 xx=x-LEN(s0$) : vy=y+7: x$=50$: 60 
SUB 2489:LOCATE 1,15 

1254 IF re=so THEN 1264 ELSE 1394 
1269 PRINT: PRINT: PRINT'JUSTE, * 

1270 j=j+isxt=xt+s 


1286 CLEAR INPUT:FOR k=i TO 5000: IF 


INKEY$<3"" THEN 1290 ELSE NEXT k 


1290 SOUND 1,100,0,15,2:L0CATE xt,y 


t: PRINT wp$: RETURN 

1309 PRINT:PRINT"Faux, " 

1316 IF re= THEN PRINT: PRINT" Tu n° 
avais rien r'+CHR$(212)+"pondu !":G 
OTO 1538 


1326 PRINT:PRINT'Tu avais r'+CHR$(Z > 


12)+"pondu";:PEN 1:PRINT re:FEN 2 
1330 f=f+iixtf=xtf-s 

1346 CLEAR INPUT:FOR k=1 TO S66ü: IF 
INKEY$<£:"" THEN 1354 ELSE NEXT k 
1356 SOUND 1,106,56,15,2,2:F0R cl=i 
TO SO: LOCATE xtf,yt+1:PEN -3#(cl M 

OD 2=6):PRINT Wv$:NEXT:LOCATE xtf,y 

t:PRINT ef$:RETURN 

1364 REM----- 

1376 REMcorrection de la division 


1396 FOR w=i TO atiNEXT w: INK 1,1:P à 


EN 2 


1499 LOCATE 1,16:PRINT"Quel le est t : 


a r'+CHR$(212)+"ponse ? "5: PEN 3 
1416 CLEAR INPUT: INPUT" ",re$ 
1426 FOR ct=1 TD LEN(re$} 


1426 IF ASC(MID$(re$,ct,1)<47 OR A 


SC(MID$ (re$,ct,1)}>57 THEN 1449 ELS 
E 1450 


> TM 
>FD4 
DFE 
>BF4 


16 
?CH£ 


>< 
> TK 
CLé 


2VH£ 
?EJ< 


FAK< 


1446 PRINT CHR$(7):LOCATE 25,16:PRI :YÉ< 


NT CHR$(18):LOCATE 25,16:60T0 1416 
1458 NEXT 

1466 re=VAL (re$} 

1476 FEN 2 


1480 FOR w=i TO 469: NEXT w:LOCATE 1 ?LP< 


16:PRINT CHR$ (18) 


1499 INK 1,25 HQE 
1509 xx=xtiiyy=y+3:x$=so$:GOSUR 248 >76£ 

( 

1518 di=(so\18}*16 ?FH£ 
1329 d2=a-di#b ?BJ< 
1530 IF d2<10 THEN d2$="0"4+MIDS (STR >AK< 

$(d2),27 ELSE d2$=MID$(STR$ (d2) ,2) 

1546 r=a-soxb:r$=MID$ (STR$(r) ,2) ?iLé 
1554 PEN 3 2ŸME 
1560 IF a>10*xb THEN 1574 ELSE 1596 
1579 xx=x-LEN(d24)-Z:yy=y+3ix$=da$: : 

GOSUB 2484 

1580 xx=x-LEN(r$)-2: yy=y+5: x$=r$: 60 :D0< 

SUB 2489:G0T0 1699 

1599 xx=x-LEN(r$)-2: yy=v+i: x$=r$: GO HR< 
SUB 2486 
1689 PEN 2 
1619 IF re=so THEN 1624 ELSE 1668  :YJ< 
1626 LOCATE 1,18:PRINT'JUSTE. " 
1636 j=jtiixtext+s 

1644 CLEAR INFUT:FOR k=i TO 5060: IF : 
INKEY$<>"" THEN 1650 ELSE NEXT k 
1658 SOUND 1,199,0,0,2:LOCATE xt,yt >2N< 
2FRINT wp$:RETURN 

1666 LOCATE 1,16:PRINT"Faux. " 
1674 IF re=ÿ THEN PRINT:PRINT'Tu n° :KQE 

avais rien r"+CHR$(212)+"pondu !":6 

OTO 1694 

1689 PRINT:PRINT"Tu avais r'+CHR$(2 :YR< 
12)+"pondu";:FEN 1:PRINT re:FEN 2 
1690 f=friintieuti-s 

1704 CLEAR INPUT:FOR k=1 TO SOGQ:IF :EJ: 
INÉEY$<5>"" THEN 1714 ELSE NEXT k 

1716 SOUND 1,160,56,15,2,2:FOR cl=i AK< 
TO 39:LOCATE xtf,vt+i:PEN -3#(c1 M 

OD 2=6) :PRINT Wv$:NEXT:LOCATE xtf.y 
t:FRINT ef$:RETURN 





1720 REM----- ëTL< 
1736 REM---fin de l'exercice--- LM 
1746 REM---- UNE 
1756 CLS JUPE 


1766 xx=14:yy=10:x$="bon voyage !“1 
GOSUB 248ÿ 
1776 GOSUR 2726 
1780 CLS#1:LOCATE 1,15 #RTÉ 
1790 IF f=6 THEN 1846 ELSE 1848 
1806 IF ni$="3" OR (ni$="2" AND (op 
="{" OR op$="2"}) OR (ni$="1" AND 
op$="i") THEN PRINT" Bravo, Le conv 
oi est arriv'+CHR#(212)+" intact !" 
:60T0 1884 : 
1819 PEN 2: x$="FELICITATIONS lfeuxz 
13:yy=5:60SUB 2489:LOCATE 15,9:PRIN 
T'La "ss PEN LiFRINT'S N CF * 
1829 PEN 2:LOCATE 11,11: PRINT" "SP 
EN 1:PRINT'S"::PEN 2: PRINT "oc i"+CHR 
$(2121+"€"4CHRS (212) s: PEN 1: PRINT" 


?TKK 


#HL< 


: # 
ME 


Ca 


N'::PEN 2:PRINT'ationale":LOCATE 18 
,12:PRINT"des":PEN 1:LOCATE 7,13:PR 
INT'C"::PEN 2:PRINT'alculateurs ":: 
PEN 1:PRINT'"F"::PEN 2:PRINT"antasti 
ques)" 
1839 LOCATE 5,19:PRINT"t 'embauchera 
d'+CHR$(213)+"s que tu voudras.":6 
OSUB 1939:G0T0 1899 
1846 IF f=1 THEN 1850 ELSE IF f=10 
THEN 1860 ELSE 1876 
1856 PEN 2:LOCATE 15,6:PRINT"Fas ma 
1 !'sPRINT:PRINT" Il manque tout de 
m"+CHR$(214)+"me un petit wagon. ": 
LOCATE 7,19:PRINT"Tu es certainemen 
t capable":LOCATE 7,11:PRINT"de ram 
ener tout le convoi.":60SUB 1939:60 


TO 1899 

1868 PRINT" Mes pauvres petits w 
agons !!!!!":60TO 1884 

1879 PRINT" D"+CHR$(212)+"sol" 


+CHR$(212)+", 11 manque“; f; "wagons. 
1886 FOR w=i TO 30ÿ0:NEXT y 

1896 CLEAR INPUT:LOCATE 8, 16: PRINT" 
Veux-tu rejouer (O/N)? ": 


1909 IF INÉEY(34)=0 THEN PRINT'O®:F > 


OR w=1 TO 249:NEXT w:CLS:CLEAR INPU 
T:partie=partie+i:G0T0 124 

1919 IF INKEY(46:=0 THEN PRINT'N":G 
OTO 1929 ELSE 189% 

1926 FOR w=1 TO 1994:NEXT w:CLS:CAL 
L &BC92:END 

1936 PEN 1:LOCATE 1,19:PRINT" Appui 
e sur une touche pour continuer, " 
:FEN 2 

1940 CALL SBEG6 

1959 CLS:RETURN 


1990 MODE @:ti$="CALCUL MENTAL" 

2000 INK 1,172 INK 2,15: IN 3,19: INK 
4,11 

2018 FOR ti=1 TO 14 

2026 1tis=MIDS(ti$,ti,1) 

2030 IF ltis=" " THEN 2119 

2046 FOR chu= 1 TO 15 

2450 PEN ti MOD 4+1 

2060 LOCATE 3+ti,chu:PRINT 1tis 

2676 no=490-12#ti-12#chu: SOUND 1,n0 
,8,19:SOUND 2,n0#8.5,8,8 

2086 LOCATE 3+ti,chu: PRINT" “ 

2696 NEXT chu 

2100 LOCATE 3+ti,chu:PRINT 1tis 
2119 NEXT ti 

2120 FOR w=1 TO 300:NEXT 

2130 SPEED INK 3,3: BORDER 7,11:EW 

2,15,-1,15:S0UND 1,0,400, 15,2,0, 36: 
OUT 255,8: OUT 256,1:FOR w=1 TO 2000 


?EN€ 


?GP4 


se 


>DQ< 


2NEXT W:OUT 256,0 

2149 BORDER 6: MODE 1:FOR w=1 TD 190 
Q:NEXT 

2156 RETURN 

2169 REM------ 
2178 REM redefinition caracteres 
2189 REM----—— 
2199 SYMBOL AFTER à 

2200 SYMBOL 206,6,6,6,6,6,31,63,127 


2210 SYMBOL 201,0,0,0,0,0, 295, 254,2 
54 

2220 SYMBOL 202,0,127,127,112, 112,2 
40,112,112 

2236 SYMBOL. 263, 255, 255, 255, 127,63, 
15,15,4 

2240 SYMBOL. 264, 255, 255, 255, 255, 0, 
o 

3 

2250 SYMBOL 205, 127, 255, 255, 255, 255 
,120,129,48 

2260 10$=CHRS (260) 4CHRS (291 ) +CHRS (2 
02)+CHRS (18) +CHRS (B) +CHRS (8) +CHRS (8 
1HCHRS (20 3)+CHRS (204) 4CHRS (205) 


2274 SYMBOL 206,63, 63,255, 295,63, 15 : 


19,6 


2280 SYMBOL 207,295, 299,295, 299, 299 : 


,9,0,0 


2290 SYMBOL 208,295, 295, 255,235, 299 : 


,6à, 69, 24 


2300 wv$=CHR$ (206) +CHR$ (267) +CHR$ (2 


QE) 
2319 SYMBOL 
2320 SYMBOL 
,264,255 
2336 SYMEOL 
43,255 

2346 wp$=CHRS (209) +CHR$ (210) 4CHRS (2 
iii 

2250 ef$=CHRS(19)4" 


209,0,0,0.0,3,14,51,63 


366 FOR i=1 TO 14: W$=Wb+uv$:NEXT à à 


376 tr$=10$+w$ 
2280 REM---accents--- 


2396 SYMBOL 212,12,24,60,102, 126,96 : 
‘,60 
2406 SYMBOL 213,48,24,66,192,126,96 : 


,60 


2416 SYMBOL 214,24,36,60,192, 126,96 


6 

2426 SYMBOL 215,24,36,56,24,24,24,6 
( 

2436 REM---fumee--- 

2444 SYMBOL 216,0,0,0,3,3 

2456 SYMBOL 217,0,9,24,60, 60,24 


2466 SYMBOL 218,0,24,60,126,126,60, : 


24 
247 RETURN 


249% REM---double hauteur--- 


219,9,28,51,253,244,127 ; 


211,0,0,0,192,240, 156,2 ? 


>VH£ 
>PJ< 
?NE< 
PNL< 
>QM< 
>MN< 
LE 
2KF< 
PNG 
3 TH 
?LJ< 
3JE< 


3VL< 


2509 REM---———— 

2519 RESTORE 2616 

2526 d$é=STRINGS (81,32): d$="" 

2530 FOR i=0 TO 89 

2549 READ jj:d$=d$+CHR$ (jj) 

2550 NEXT i 

256% d=FNdeek (@d$+1) 

2570 LOCATE xx,yy 

2586 FOR i=1 TO LEN(x#) 

2599 POKE d+1,ASC(MIDS(x$, i,1)) 
2699 CALL diNEXT i 

2610 DATA ke, koe, &cd, ka, kbb,k16,& 
fe,à3e,k19 

2629 DATA &cd,&5a, &bb,k7a, cd, k5a,& 
bb, 4e, 404, &7e 

2636 DATA &cd,%5a,&bb,kcd, ka, &bb,% 
23, 40d,820,&f5 

2649 DATA 414,820, ke7, ke, kfe, bcd, à 
Ja, kbb,3e,4ôa 

2650 DATA &cd, &5a,&bb,43e,806, bcd,& 
Ja, #bb,&3e,&ff 

2666 DATA &cd,45a,&bb,&e, &ôb, écd, à 
Ja, #bb,&c9,&5a 

2676 DATA &bb,43e, ka, cd, 5a, kbb,& 
3e,408, kcd,£5a 


2689 DATA &bb,%ie,kft,kcd,&5a, kbb,4 : 


3e, &0b, cd, &5a 

2698 DATA &bb,kc9 

2796 RETURN 

2TIQ REM-— 


2726 REM---depart du train--- 


2740 ttré="":u#="":FOR i=i TD j 

2750 u$=n$+CHRS (15) +" C'+avS+CHRS (11 
)+CHRS (8) +CHRS (B)4CHRS (BD +CHRS (15) 
1B'#up$+CHRS (10) 

2764 NEXT 

277 1lo$=CHR$(15)+"C"+10$ 

2786 PEN 1:ttr$=110$+n$+CHRS (32)+CH 

RS (11) +CHRS (B) +CHRS (32) 

2796 CLS#2:xt=35-j 

2806 FOR i=36-j#3 T0 1 STEP -1 

2816 LOCATE i,yt:PRINT ttré 

2829 PEN 1 

2836 LOCATE i,21:PRINT CHR$(216)::G 

OSUB 2840:LOCATE i+1,20:PRINT CHR$( 
217)::60SUB 2866:LOCATE i+2, 19:PRIN 
T CHRS (218); :60SUB 2864 

2846 NEXT 

2854 RETURN 

2864 IF i=1 THEN 2910 

2880 IF n=100 THEN m=50 ELSE n=100 
2890 IF z>19 THEN z=0 

2900 2=2+1:MASK m,0:PLOT 1,28: DRAWR 
&39,0:PLOTR -5+2#(z=10),-2:DRAUR - 
633,0 

2910 PRINT CHRS(B)+CHRS (32) 

2926 RETURN 


?TH< 
>6J< 
AK< 
#JLé 
NM 
2YN€ 
>AP< 
KG 
?TR< 
?BT< 
>PJ< 
>WK< 


#HL€ 


2 JM< 


?EN< 


#LP4 


#Dü< 


JR 


3XR< 
3 JT 
>GU< 





Jean-Marc BELORGANE 


NEW 


AUTO-CHOC 


Le but du jeu est assez similaire à celui du PAC-MAN. C'est-à-dire 
qu'il faut ramasser le plus grand nombre de pièces d'or éparpillées tout 
au long d'un circuit, afin d'obtenir le maximum de points. 





L'originalité de cette version réside dans 
le fait que les PAC-MEN sont rempla- 
cés par deux formules 1 : 

- l'une est conduite par le joueur, 
-l'autre par l'AMSTRAD (ou plutôt 
par JR). 

Le rôle de la voiture conduite par 
l'AMSTRAD est de provoquer une col- 
lision avec la voiture du joueur, en se 
plaçant intentionnellement sur sa route. 


MODE DE JEU 


Il est possible de jouer : 

- à un joueur, 

- à deux joueurs, 

- avec le clavier, 

-avec un joystick (le même pour les 
deux joueurs). 


La règle du jeu ainsi que les modes de 
jeu sont expliqués de manière plus éten- 
due dans le programme. 

Le logiciel "AUTO-CHOC" est compo- 


Le] LE LI 
CORRECTE r 


sé de 2 modules : 

- AUTOCHOC.BAS qui constitue la 
présentation du jeu, 

- AUTOCHOC.DAT qui constitue le 
programme en lui-même. 

Le module AUTOCHOC.DAT est 
"mergé" en fin du module AUTO- 
CHOC.BAS à la ligne 3390. De ce 
fait, ce module AUTOCHOC.DAT doit 
être sauvegardé par : SAVE "AUTO- 
CHOC.DAT", A pour les utilisateurs 
d'un 464 accouplé à un lecteur DDI1, 
dans le cas contraire, SAVE" 
AUTOCHOC.DAT" suffira. 

La routine binaire incluse dans le se- 
cond programme permet d'intégrer au 
basic Locomotive V1.0 de l'AMS- 
TRAD, 5 nouvelles commandes : - 


|COPYCHR, X, Y, @ Caractère% 
IGPEN, Couleur 

[CURSEUR 

| AUTOJOUEUR, X, Y, ix, jy 
[AUTOAMSTRAD, X, Y, ox, py 


| COPYCHR, X, Y, @ Caractère% 
Cette commande place dans la variable 
entière Caractère% le cpde ASCII du ca- 
ractère situé aux coordonnées X et Y du 
curseur texte. 


| GPEN, Couleur 

Cette commande initialise la couleur du 
PEN GRAPHIC avec la couleur 'Cou- 
leur'. La variable ‘Couleur peut être un 
nombre compris entre O et 15. 


[CURSEUR 

Cette commande permet d'afficher ou 
d'effacer le bloc curseur texte à la posi- 
tion actuelle du curseur texte. 


| AUTOJOUEUR, X, Y, ix, jy 

Cette commande affiche la formule 1 
du joueur aux coordonnées X et Y du 
curseur texte suivant les valeurs de ix 
et de jy. 

- Siix = -1 la commande affiche l'auto 
dirigée vers la gauche (jy = 0 dans ce 
cas). 

- Siix = 1 la commande affiche l'auto 
dirigée vers la droite (jy = O dans ce 
cas). 

- Si jy = -1 la commande affiche l'auto 
dirigée vers le haut (ix = 0 dans ce cas). 
- Si jy = 1 la commande affiche l'auto 
dirigée vers le bas (ix = 0 dans ce cas). 


|AUTOAMSTRAD, X, Y, ox, py 
Cette commande affiche la formule 1 de 
l'AMSTRAD aux coordonnées X et Y 
du curseur texte suivant les valeurs de 
ox et de py. 

- Si ox = -1 la commande affiche l'auto 
dirigée vers la gauche (py = 0 dans ce 
cas). 

- Si ox = 1 la commande affiche l'auto 
dirigée vers la droite (py = O dans ce 
cas). 


- Si py = -1 la commande affiche l'auto 
dirigée vers le haut (ox = O dans ce 
cas). | 

- Si py = 1 la commande affiche l'auto 
dirigée vers le bas (ox = 0 dans ce cas ). 





ia REM ie REUHER VE 
24 REM * # WC 
36 REM+# AUTO - CHOC +* SWD< 
4 REM +# # 3YE< 
dé REM +# par # WF 
6à REM +* + +AG< 
74 REM * Jean-Marc BELORGANE + 2PH£ 
B6 REM+*  allias JuMBosoft + ALJ< 
90 REM # * 3DK< 
196 REM # sur L ?UB< 
119 REM * # 2YC< 
126 REM + AMSTRAD CFC-464 + DDi * >VD< 
136 REM * # 3AE< 
149 REMPORTE 2BF< 
150 REM #44 PRESENTATION #####4 FTG< 
168 REM RHONE >EH< 
179 ‘ *HJ£ 
186 ‘ V2,0 ---- MAI 1987 21K< 
196 IF HIMEM=57119 THEN 1676 ?BL< 
290 ‘ ?BC< 
219 ‘ REDEFINITION DES CARACTERES 3MD< 
226% SYMBOL AFTER 127 ?RE< 
259 REM ---: LA FORMULE ! 3QF< 
246 SYMBOL 165,9,0,0,252,292,292,2952 »P64 
1294 

256 SYMEOL 166,6,6,6,6,8,6,0,7 *DH 


274 SYMEBOL 168,6,6,6,0,64,240,248,24 >NK< 
8 

280 SYMBOL 169,9,6,0,0,0,0,0,32 
298 SYMBOL 176,66,65,56,48,16,16,8,7 ?FM< 


300 SYMBOL 171,127,255,295,127,127,1 >AD4 
27,255,0 

310 SYMBOL 172,255, 255, 255, 255, 255,2 ?LE4 
55, 255, 4 

320 SYMBOL 173,249, 255, 254, 252, 254, 2. >YF< 
52, 255,0 

330 SYMBOL 174,249, 295, 248, 240,240, 1 >2B4 
12, 248,7 

340 SYMBOL 175,0,0,192, 112, 124, 127,2 
55,0 

250 REM ——-> LES PNEUS DE LA Fi 

360 SYMBOL 176,0,7,8, 16, 16, 16,8,7 


>RH£ 


?LJ< 
#LK< 


10 








376 SYMBOL 177,0,0,128,64,64,64,128, :YL< | 750 SYMBOL 149,129,129,155,24,6,66,6 3FN<S 


Û 

380 REM -—> LE COTE DE LA Fi Me 
390 SYMBOL 178,0,0,31.31,31,31,31,0 2MN< 
400 SYMBOL 179,0,0, 255, 255,255, 255,2 JE< 
55,0 

410 SYMBOL 180,0,0,224,249,240,240,2 >WF4 
40,0 

420 REM ---> LE PILOTE 

420 SYMBOL 181,4,0,0,0,0,48,56, 56 
449 SYMBOL 182,48,0,0,0,6,0,0,0 

46ù REM -—-} ENJOLIVEURS DE LA Fi 
470 SYMBOL 184,0,0,0,5,2,5, 0,0 

480 SYMBOL 185,0,0, 2,2, 13,2, 2,0 

490 SYMBOL 186,0,0,0,9, 128, 0, à,0 
50Û REM ---> INVERSE DE CHRS (207) 
510 SYMBOL 128,85, 170,85, 170,85, 170, 
85, 170 

520 REM -—-> LE CIRCUIT 

530 SYMBOL 129,0,127,107,85,107,85, 1 
07,126 

540 SYMBOL 130,6,255,171,213,171,213 >YK4 
,255,0 

594 SYMBOL 131,6,254,170,214,170,214 3KL4 
,234,126 

Séù SYMBOL 132,126, 86, 1û6, 86, 106,86, >JMi 
106,126 

S7à SYMBOL 133,126,214,170,214,170,2 ?MN£ 
14,254,0 

580 SYMBOL 134,126,87,107,85,107,85, >DP4 
127,0 

590 REM -—-> AUTO DE L'AMSTRAD 
bOû SYMEOL 135,90, 126,90, 24,24,219,2 >BG4 


55, 195 

618 SYMBOL 136,195,255, 219, 24, 24,90, >DH< 
126,90 

620 SYMBOL 137,224,231,66,127,127,6b ?DJ< 
231,224 

636 SYMBOL 138, 7,231,66, 254,254, 6,2 ?XK< 
31,7 

b4ÿ REM ——-} AUTO DES 2 JOUEURS >UL< 
650 SYMBOL 139,165, 255, 189, bû, 24,90, >PM< 


126,90 
bd SYMBOL 149,90, 126,90, 24, 60, 189,2 ?GN< 
55,165 

670 SYMBOL 141,224,71,242,127,127,24 >1P4 
2,71,224 

680 SYMBOL 142,7,226, 79,254, 254, 79,2 >PQ< 
26,7 

&9ÿ REM -—} PNEUS DE L'AMSTRAD 

700 SYMBOL 145,66, 66,66, 0,0,195,195, 
195 

710 SYMBOL 146,195,195,195,0,0,86, 48 DCI 
66 

720 SYMBOL 147,224,231,0,0,0,0,231,2 >VK< 
24 

730 SYMBOL 148,7,231,0,8,0,0, 231,7 
740 REM -—-> PNEUS DES 2 JOUEURS 


HR 
#AH< 


?LL< 
>JM< 














&,6b 
760 SYMBOL 15, 4b,b6, 66,0, 24,153,129 >YP< 
,129 

776 SYMBOL 151,224, 7,0,48,48,0,7,224 UD: 


784 SYMEQL 152,7,224,0,24,24,0,224,7 HR< 


790 RTE 
864 IF HIMEM=37119 THEN 1670 AE 
819 OPENOUT "d': MEMORY HIMEM-1: CLOSE :KK£ 
OUT 

826 MEMORY 37119:tot=t:som=éidta=éia :HL< 
d=49108:erreur=6:11q=1680:RESTORE 11 


CL] 

36 WHILE som‘>4224 AND erreur=û 31M< 
840  som=b:tam=ü:lig=iig+ié ENS 
850 FOR n=i T0 7 2NP< 
8éÿ READ dtaf ?FQ: 
876 dta=VAL("#"+dta$i:tam=tamtdt AR 
a 
BB6 FOKE ad,dta:ad=ad+i *ÂTÉ 
89 NEXT 3XU< 
96%  READ som 2ÉEX 
914 IF som<’tam THEN erreur=i ELSE :NL< 

tot=tot+tam 

926 WEND 2XM£ 

36 WHILE som‘>415B AND erreur=ÿ :DN< 
940  som=b:tam=b: l1g=119+i0 #LP4 
95% FOR n=i TO 3 2KQ< 
960 READ dta$ 2GR< 
97à dta=VAL("&"+dta$):tam=tamtdt ET 
a 
984 PORE ad,dta:ad=adti ?BÜ< 
99  NEXT >YVE 
1996 READ som DB 
1919 IF somitam THEN erreur={ ELSE >GC£ 

tot=tot+tam 

1926 WEND QD 
1939 ?FE< 


1946 IF tot=36025 THEN CALL 37120:60 ;YF< 
T0 167ù 

1056 PRINT CHR$(7)::MODE 1:FEN 1 ?LG< 
1966 PRINT:PRINT "ERREUR de DATAG"; LH 
1976 IF erreur THEN PRINT " a la lig ?TJ 
ne “ilig:PRINT:PRINT “tam =8"S;HEXS(t 
am);" au lieu de &";HEX$(somi;" !!! 
“sCHR$ (7); 

1986 PRINT:PRINT: PRINT “tot ="itot;" ;ZÉ< 
au lieu de 36025 !!1":CHR$ (7): PRINT 
:STOP 

1999 REM ?TL£ 
1106 DATA 91,0E,91,21,0A,91,CD,8229 ?EC< 
1119 DATA D1,BC,C9,04,09,00,06,&256 >PD< 
1126 DATA 1F,91,C3,AF,91,C3,CD,k443 ZE 
1136 DATA 91,C3,D6,91,C3,D9,91,%4E8 >KF< 
1149 DATA C3,3,92,43,4F,50,59,82CA >Q6€ 
1150 DATA 43,48,D2,47,50,45,CE,4307  >MH< 
1166 DATA 43,55,92,53,45,959,D2,&249 ?XJ< 


1170 DATA 41,55,54,4F, 4A,4F,55,4227 
1189 DATA 45,55, 02, 41,55,54,4F, 4245 
1199 DATA 41,4D,53, 54,52, 41,C4,428C 
1208 DATA 00,20, 16,01,0F,03, BC, DS 
1214 DATA 08,0F,01,96, 16,00, 29, 404 
1220 DATA 16,81,0F,03, BB, 08, OF, KÔCE 
1239 DATA 81,95, 16,00, 20, 16,01, &E3 
1249 DATA 0F,03, D, 08, 0F,01,97,&14E 
1250 DATA 16,006, 20, 16,01, 0F,03, &05F 
1260 DATA 8E,08,0F, 01,98, 16,00,4154 
1276 DATA 29, 16,01,0F, 01,87, 08, kD6 
1280 DATA 0F,03,91,0F,01, 16,06, &OC9 
1290 DATA 29, 16,01,0F, 01,88, 08, &D7 
1340 DATA 0F,03,92,0F,01, 16,00, KÔCA 
1319 DATA 29, 16,01,0F,01,89,08, &@DB 
1329 DATA 0F,03,93,0F,01, 16,00, H0CE 
1330 DATA 29, 16,01,0F, 01, BA, 08, k9D9 
1349 DATA 0F,03,94,0F, 01, 16, 00, OCT 
1390 DATA FE, 03, CO, CD, 78, BB,ES, &4ñé 
1360 DATA DD, 66,04, DD, 6E,02, CD, 43b1 
1370 DATA 75, BB, CD, 60, BB, DD, 56, 444B 
1386 DATA 01,DD,5E, 00, 12,E1,C3, &2F2 
1390 DATA 75,BB,FE, 01,00, DD, 7E, &44A 
1400 DATA 00, C3, DE, BB, C3, 8A, BE, 464 
1419 DATA FE, 04, CO, DD, 7E, 02, 3C, k35B 
1496 DATA FE, 00, 20,03, C3,FE, 914373 
1439 DATA DD, 7E, 02, 3C,FE, 02, 20, 4289 
1449 DATA 03,C3, 07,92, DD, 7E, 04, 42BA 
1450 DATA 3C,FE, 00, CA, 10,92, C3, 4369 
1460 DATA 19,92, 06,00, 11,6B,91,41CA 
1479 DATA CD, 22,92, 09,06, 00, 11,826D 
1489 DATA 5F,91,CD, 22, 92,09, db, 4340 
1490 DATA OC, 11,47,91,CD, 22,92,4276 
1500 DATA C9,06,0C, 11,53,91,CD, &29D 
1519 DATA 22,92, C9, CD, 19, BD, DD, &3FD 
1520 DATA 66,06, DD, &E,04,E5,E1, K381 
1530 DATA ES, CD, 75,88, 14, 13,CD,&3DC 
1540 DATA SA,BE, 10,F4,E1,C9,FE, &4C1 
1550 DATA 04, C0, DD, 7E,42,3C,FE, &35E 
1569 DATA 09,20, 03,C3,5F,92, DD, &254 
1570 DATA 7E,02, 3C,FE, 02, 20,03, 41DF 
1589 DATA C3,71,92, DD, 7E, 00, 3, &35D 
1590 DATA FE, 00, CA, 68,92, C3, 7A,&3FF 
1600 DATA 92,06, 0€, 11, 1,91, CD, 4286 
1619 DATA 22,92, C9, 06, 0€, 11, 77,8219 
1629 DATA 91,CD, 22,92, C9, 06, dE, &2EF 
1639 DATA 11,93,91,CD, 22, 92,09, &37F 
1649 DATA 060€, 11,85,91,CD, 22, 8224 
1650 DATA 92,09, 00, &15B 

166ÿ ‘ 

1679 REM ---> PRESENTATION 

1680 MODE 0: BORDER 0 

1690 FOR i=0 TO 15:INK i,G:NEXT i . 
1700 WINDOW #9,1,29,1,22:WINDOW #1,1 
,20,23,25 

1719 PAPER O:CLS:PEN 1:PAPER #1,1:CL 
S #1:PEN #1,0 

1720 TAG:MOVE 176, 304: :GPEN, 1: PRINT 
“AUTO-CHOC"; : TAGOFF 


PRK< 
3FL< 
2KM< 
>BD< 
?VE£ 
2WF< 
2WG< 
>YH< 
2MJ< 
>QK< 
>DL< 
3RM< 
?HN< 
?UE< 
3CF< 
V6 
2PH< 
#CJ< 
2PK& 
?DL< 
2PM< 
?UN< 
3PP£ 
3XF< 
2KG< 
> JH< 
2VT< 
?1K< 
?FL£ 
?VM< 
?ON< 
?LP£ 
PQ 
:Q6< 
>VH£ 
?1J< 
PYK< 
3JL< 
>QM< 
?GN< 
+AP< 
RO 
3JR< 
?FHK 
?UJ< 
2RK< 
?PL< 
JRME 
?BN€ 
+QP< 
00 
?WR< 
YQT< 
?1J< 


2RKK 


LC 











1739 LOCATE #1,1,2:PRINT #1," “;CHRS à 


(i64)s" 
1748 ‘ 
1759 REM ---; DESSIN DE LA Fi 
1769 =8:yi=10:y2=11 


JUMBOSOFT 19787" 


1774 LOCATE x,y1:PRINT CHR$ (22) +CHR$ : 


(di: 


1788 PEN 4:LOCATE x, vi: PRINT CHR$(16 : 


5) ;CHRS (166) ; CHRS (167) ; CHRS (168) ; CHR 
$(169) ; 


1799 PEN 4:LOCATE x,y2:PRINT CHR$(17 : 


9) CHR$ (171); CHR$ (172) 3 CHR$ (173) ; CHR 
$(174) ;CHR$ (175); 


1899 PEN S:LOCATE x,yZ:PRINT CHR$ (17 : 


6);CHR$(177)5" 
}; 


“sCHR$ (176) ; CHR$ (177 


1816 PEN 6:LOCATE x,y2:PRINT " ";CHR : 


$ (178) ;CHRS (179) :CHRS (180) ; 


1829 PEN 7:LOCATE x,y{:PRINT “ 
HR$ (181); 
1830 PEN 7iLOCATE x, yZ2PRINT "10 ) 


HR (182) ; CHRS (183) ; 


1846 PEN S:LOCATE x,y2:PRINT CHR$ (18 : 


4ji;"  ";CHRS (18) :CHRS (186) ; 


1856 PEN 2:LOCATE x,y2:PRINT CHR$ (18 : 


S):CHRS(186);" “;CHRS (184); 


1869 LOCATE 1,1: PRINT CHR$(22)+CHR$( > 


à); :PEN 1 
1878 ‘ 


1886 REM ---> DESSIN DES CADRES ET L : 


DSANGE 


1896 ORIGIN 6,49: :GPEN, 1: DRAM 9,350: ; 


DRAWR 639,6: DRAWR 0,-358:DRAUR -659, 
[) 


1909 MOVE 319,0:DRAW 6,175: DRAMR 319 : 


,175:DRAUR 319,-175:DRAWR -329,-175 
1919 

1920 REM ---} DESSIN DU SOL EN 5D 
1930 cy=175 

1949 MOVE 53,cy:DRAH 16,166,3 
1950 MOVE 89,cy:DRAN 57,144,2 
1960 MOVE 126,cy:DRAW 97,129,3 
1976 MOVE 160,cy:DRAW 136,191,2 
1980 MOVE 192,cy:DRAW 176,78,3 
1998 MOVE 228,cy:DRAW 216,57,2 
2009 MOVE 265,cy:DRAW 297,35,3 
2616 MOVE 302,cy:DRAW 298,12,2 
2026 MOVE 335,cy:DRAW 339,14,3 
2036 MOVE 379,cy:DRAW 384,38,2 
2049 MOVE 417,cy:DRAW 434,65,3 
2056 MOVE 458,cy:DRAW 477,88,2 
2069 MOVE 497,cy:DRAH 526,115,3 
2679 MOVE 538,cy:DRAW 569,138, 2 
2089 MOVE 578,cy:DRAW 618,164,3 
2499 :GPEN, 1 

2100 MOVE 1,175: DRAW 639,175 
2116 MOVE 58,144:DRAW 581,144 
2120 MOVE 96,122:DRAW 542, 122 
2130 MOVE 138,100:DRAW 591,100 


CS 


3FD4 
?ME< 
?CF 
?TG< 
?LH< 
?DJ< 
2MK< 
?ML< 
2FM< 
>HD< 


7 DLEX 


>CF< 
PNG 





2149 MOVE 179,78:DRAW 461,78 
2156 MOVE 218,57:DRAW 422,57 
2169 MOVE 257,34: DRAN 383,3 
2176 MOVE 297,13:DRAW 337,13 
2180 
2194 REM ---; DESSIN DU COIN-1. 
2206 cy=350 
2216 MOVE 4,cy:DRAW 17,189,8 
2226 MOVE 6,cv:DRAHW 38,194,9 
2236 MOVE 6,cy:DRAN 53,264, 16 
2249 MOVE 6,cy:DRAW 75,215, 11 
MOVE 4,cy:DRAW 89,224, 12 
2266 MOVE 0,cy:DRAH 109,234,15 
2276 MOVE 9,cy:DRAW 127,244, 14 
2280 MOVE à,cv:DRAW 146,254,15 
2294 MOVE 9,cy:DRAW 161,265,8 
2300 MOVE 6,cy:DRAW 178,272,9 
2319 MOVE 9,cy:DRAW 193,283, 10 
2320 MOVE 0,cy:DRAM 215,293, i1 
2236 MOVE 4,cy:DRAW 231,383,12 
340 MOVE 6,cy:DRAW 251,312,13 
2256 MOVE 6,cy:DRAW 267,323,14 
2366 MOVE 6,cy:DRAH 285,333,15 
2376 MOVE 0,cy:DRAW 309,343, 
2389 ‘ 
2396 REM ---; DESSIN DU COIN-E 
2498 cx=b39 
2419 MOVE cx,cv:DRAW 334,747,9 
242 MOVE cx,cy:DRAW 353,331,10 
2434 MOVE cx,cy:DRAW 378,318,11 
2449 MOVE cx,cy:DRAH 392,349,12 
2456 MOVE cx,cy:DRAH 417,297,13 
2468 MOVE cx,cy:DRAW 437,285, 14 
2476 MOVE cx,cy:DRAW 458,274, 15 
2484 MOVE cx,cy:DRAW 476,262,8 
2499 MOVE cx,cv:DRAW 496,253,9 
2568 MOVE cx,cy:DRAWN 516,241,14 
2514 MOVE cx,cy:DRAH 536,331,11 
2524 MOVE cx,cy:DRAW 558,218, 12 
2534 MOVE cx,cy:DRAW 577,209,13 
2549 MOVE cx,cy:DRAH 598,197,14 
259% MOVE cx,cy:DRAN 617,187,15 
2560 
2579 REM ---> DESSIN DU COIN-5 
2589 MOVE cx,6:DRAH 618,163, 
2598 MOVE cx,0:DRAW 592,154,9 
2600 MOVE cx,9:DRAW 569,136, 10 
2619 MOVE cx,0:DRAW 547,124,11 
2620 MOVE cx,9:DRAW 526,112,12 
2630 MOVE cx,9:DRAW 502,161,15 
2649 MOVE cx,4:DRAH 479,86, 14 
2650 MOVE cx,0:DRAW 457,76,15 
2660 MOVE cx,0:DRAW 435, 62,8 
2670 MOVE cx,0:DRAW 411,56,9 
2680 MOVE cx,0:DRAH 385,37, 10 
2670 MOVE cx,0:DRAM 359,23, 11 
2709 MOVE cx,9:DRAW 338,11,12 
2716 
2720 REM ---; DESSIN DU COIN-4 


11 


2736 MOVE 0.0: DRAM 299,11,13 
274ù HOVE &,0:DRAW 278, 22, 14 
2756 MOVE 0,6: DRAM 259,33, 15 
276ù MOVE à,0:DRAW 239,45,8 
2778 MOVE 6.0: DRAM 219,54,9 
278û MOVE à,6:DRAW 201,64, 10 


2794 MOVE 4,6:DRAW 177,76,11 ; 

2864 MOVE 4,6:DRAW 163,87, 12 3TL< 
2814 MOVE 4,6:DRAW 138, 141,15 EM< 
2826 MOVE 0,6: DRAH 116,119, 14 FHN£ 
3634 MOVE 6,6:DRAW 97.123,15 #WP< 
2849 MOVE 6,G:DRAW 76,133,8 :VQ< 
2854 MOVE 0,6: DRAW 57,143,18 2PRÈ 
2664 MOVE 6,6:DRAW 37,154,12 aUT< 
2874 MOVE 4.6:DRAW 18,165, 14 FYU< 
2884 AE 


2894 REM -——; 
LOSANGE 

2908 ORIGIN 6,49: :GPEN, 1: DRAW 6,350: :WM< 
DRAUR 637,6: DRAMR 6,-2356:DRAWR -679, 

( 

2914 MOVE 319,6: DRAW 6,175: DRAUR 319 :PN< 
CPS: DRAMR 319,-175: DRAMR -324,-175 


REDESSIN DES CADRE ET :CW: 


292 OP 
293% REM ---> ANIMATION RO 
70%) DIM couleur (15):RESTORE 2980 FR 
2956 FÜR 1=0 T0 15 NT 


2964 READ couleur (ii:INE 1,couleurti ?MU< 
i 

2974 NEXT 1:FRINT CHR#(7): 
2986 DATA 4,26,26,6,6,11,9,25, 2,3,6 >YW 
.8,193,18,24,23 


2998 INE 3,6,2b:INE 3,26,0 FRXE 
3606 k=G:a=b:b=û:c=6: ad=2, 2 +ED< 
3619 FOR 1=1 TO 26: z$=INFEYS:NEXT EE: 
30264 RESTORE 3254 :EF< 
3636 WHILE z$="" AND k<760 2MG< 
3646 FOR j=& TO 7 >DH{ 


3654 FOR i=8 TO 15 ENJ< 
2666 1=(j+1) MOD 16:1F 146 THEN 1=1+ NE 
8 


3674 INÉ i.couleur(l} 3DL£ 
3086 NEXT i:IF k354 THEN azati:IF af :HM£ 


ëi THEN GOSUE 3184 

3898 k=k+i ?BN° 
3160 NEXT j QE < 
3116 2z$=INKEYS JF 
3126 WEND:SOUND 135,0, 1,0 +BG< 
3136 IF FRE("")<20660 THEN 319 ELSE ?DH< 
CHAIN MERGE “'AUTOCHOC. DAT", 3390,DE 

LETE 3394- 

3140 STOF 2XJ< 
3154 LK£ 


3169 REM *MUSIQUE DE PRESENTATION#  :NL< 
3178 REM HOMO >UM< 
3186 READ b,c ?YN£ 
3199 IF b=168 THEN per=6:60T0 3214 RP 


3260 per=ROUND (125066/ (4464 (2% {(b-16 YF< 
3/12) 
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& SOUND 2,per,c#ad.i: 
à SOUND 2,4,i,4 32H 
IF ad=5,2 AND 3237 THEN SOUND 2 :FJ< 
“ie, À 

22344 RETURN 

3296 DATA 1,5,3,5,5,14,8.18,8,i4 BL 
3266 DATA 16,14,8,10,5,18,1,18,1,5  :TM< 
32374 DATA 3,5,5,18,3,19,3,19,1.18 2 TN: 
3286 DATA 3,24,3,10,1,5,3,5,5,10.8 IP 
3296 DATA 16,8,16,16,14,8,18,5.14 BTE 
3306 DATA 1,16,1,5,3.5,5,18,5,10,7  :PG< 
33516 DATA 14,17,10,1,24,1,16,8,20.6 2H: 
3326 DATA 26,19,16,10,29,14,18,6 ÊAE 
334 DATA 16,8,18,5,16,1,19,3,29,7 
2344 DATA 14,1,14,5,16,8,16.8, i6 









3 TM£ 


3356 DATA 10,19,8,10,9,10,1,10.1,5 

336û DATA 3,5,5,19,5,10,3,10,3,10  >UN< 
| 3376 DATA 1,40, 100,70 rAP< 
3380 : sRQ< 


3596 REM ---{ LIGNE DE CHAINAGE de & :QR‘ 
UTOCHOC. DAT :--- 





A 


3394 REM OR 
3400 REM + Li 2FH£ 
3416 REM + PROGRAMME FRINCIFAL + FJ< 
3426 REM +# 4 HE 
3476 REM PR 3EL< 
3444 REM #UM< 
3454 REM +# INITIALISATION ## 2EN° 
2468 REM ESS S ESS SES. :BF£ 
3474 ON EREAE GOSUE 8826 DQ< 
3486 ENT -i,8,-1,1,16,1,1,8,-1,1 FERE 


3496 CLEAR:DEFINT b-2:DIM no$(3),ta KT 
bles (25) 

3584 no$(1)="!!lqbs!!!"eno$(3)="KFE SUJ< 
O.NBSD":no$ (3) ="CFMPSHBDF “ 

3516 1n$=CHR$ (24) :s0$=CHR$ (7) : image >YK£ 
=ô: ob jet=144: record=à 

3528 car$=CHR$ (27)+CHR$ (1) +CHRS (15) JL£ 
+CHRS$ C3H+CHRS (207 +CHRS (Bi +CHR$ (15) 
+CHR$ CL) +CHRS (128) +CHR$ (22) +CHR$ (A) 


+CHR$ (15) +CHR$ (2) 

3536 RESTORE 6974 3 IM€ 
3546 FOR i=i TO 35 #LN 
3556 READ d$ 3VP£ 
3560 FOR j=1 TO LEN(d$) 2WQ< 
3579  K=AGC(MID#(d$,j,1)) 3ER€ 
3586 IF k=32 THEN table$(i)=table >LT< 


$ti+" " ELSE table$(i)=tables(i}+C 
HR$ (k+30) 
3594 NEXT 



























3664 NELT 
it 
9 REM #4x+ REGLES OÙ JEU ###4 
Ië:% REM FESSES S 
2644 MODE j:CALL RBCOS:INE 2,8: INE 
3,16 
3656 LOCATE 13,1:PRINT “A UT 0 - C : 
hH GC": 


3664 LOCATE 16,3:PRINT CHR$ilédis" 
Jean-Marc BELORGANE" 


3674 LOCATE 14,7:PRINT “REGLES DÙ J ; 


EU 


3684 LOCATE 1,16:PRINT " âssis au v : 


olant d'une superbe FERRARI, ‘: 
3698 LOCATE 1,11: PRINT "vous devez 
essayer de rester le plus lon“: 


3704 LOCATE 1,12:PRINT “-gtemps pos > 


sible sur la piste, en ramas-": 


3719 LOCATE 1,13:PRINT "sant au pas : 


sage les pieces d'or eparpii-": 


372% LOCATE 1,14:PRINT “lees sur vo {N° 


tre chemin. *: 

3734 REM 

374% LOCATE 1,17:PRINT “ J'ai bien 
dit essaver car comme vous": 


3754 LÜCATE 1,18:FRINT ‘vous er dou : 


tez, l'ignobie JR a bors de “: 
3764 LOCATE 1,19:PRINT "sa LUCIFER 
2606 est la pour faire echou-": 


3774 LOCATE 1.26:PRINT ‘er votre mi ; 


ssion en se placant volontai-"; 
3784 LOCATE 1,21:FRINT ‘“rement sur 
votre route...": 
379% GOSUE 8596 
CHE 


3804 CLS RME 
3816 LOCATE 12,1: PRINT “AU T O - € :QN€ 


H D C": 
3826 LOCATE 16,3:PRINT CHR$(164):" 
Jean-Marc BELORGANE" 


3838 LOCATE 14,6: PRINT "REGLES DU J : 


EU u 

3846 LOCATE ji, B:PRINT "-Les touche 
s de commandes de votre FER-": 

3856 LOCATE i, 9:PRINT "RARI sont 1 


u 


es suivantes :": 


3866 LOCATE 6,11:PEN Z:PRINT "A“siP à 


EN 1:PRINT " pour "s3tFEN 3:PRINT v 
ous diriger en HAUT": 


3876 LOCATE 6,L3:PEN ZiFRINT “l'ssl à 


EN PRINT “ pour "s:PEN 3: PRINT "v 
ous diriger en BAS": 


3880 LOCATE 6,15: PEN 2:PRINT “/"3:P 5 


EN {:PRINT " pour "s;:PEN 3:PRINT ‘y 
ous diriger a GAUCHE"; 
3894 LOCATE 6,17:PEN Z:PRINT "stp 
EN 1:PRINT ‘ pour ";:PEN 3:PRINT "v 
ous diriger a DROITE"; 
3969 LOCATE 1,19:PEN 2:PRINT "ESFAC 


‘ ATTENTE D'UNE TOU : 


2YR€ 


AIT 


2NX< 


>DN< 


E"s;2PEN 1:PRINT “ pour “;:PEN 3:PRI 
NT “actionner le TURBO"; 

3919 LOCATE 1,21:PEN {:PRINT "-Bien 
entendu il est egalement possible" 


3920 LOCATE 1,22:PRINT "de jouer av : 


ec le JOYSTICK..." 
3930 GOSUB 8590 

3940 

3950 MODE 1:BORDER 3 

3960 INK 0,0: INK 1,26: INK 2,9: INK 3 
15 


3970 WINDOW #6, 1,49, 1,25:PEN #6, 1 


:PAPER #9,9 

3986 WINDOW #1,31,39, 1,21:FEN #1,1 
:PAPER #1,9 

3999 WINDOW #2,31,39,22,25:PEN #2,0 
:PAPER #2,1 

4600 WINDOW #3,30,30, 1,25:PEN #3,0 
:PAPER #3,2 

4616 WINDOW #4,40,40, i,25:PEN #4,0 
: PAPER #4,2 

4026 CLS#9:CLS#1 : CLS#4: CLS#2: CLSHS 
4930 ‘ 

4949 REM #+ AFFICHAGE GENERAL *# 
4950 REM HER 

4660 GOSUB 6916 ‘ Affichage du cire 
uit 

4676 GOSUB 725% ‘ Affichage du joue 
ur | 


4686 GOSUB 7376 ‘ Affichage du joue 
ur 2 

4996 GOSUB 7499 ‘ Affichage du reco 
rd . 

4106 GOSUB 774% ‘ Affichage du titr 
e 

41106 GOSUB 7890 ‘ Affichage de TURB 
0 

4126 GOSUB 8029 ‘ Affichage de BONU : 
S 

4136 GOSUB 8390 ‘ Musique No2 

4140 ‘ 

4159 REM ##### INTRODUCTION ####4+ 
4160 REM ÉRÉÉS ES SSSSISSI 


4170 WINDOW SWAP 9,2:CLS 

4180 LOCATE 1,1:PRINT “COMBIEN"; 
4190 LOCATE 1,2:PRINT " DE"; 

4299 LOCATE 1,3:PRINT “JOUEURS"; 
4216 LOCATE 1,4:PRINT “1 ou 2 7"; 
4220 j=0:EVERY 15,3 GOSUB 8550 

4230 GOSUB 8720:' VIDAGE DU BUFFER 
CLAVIER 

4249 jo$=INKEYS$: IF jo$="" THEN 4240 


4250 IF jo$<>"1" AND jo$<>"2" THEN 
PRINT s0$::G0TD 4249 

4260 sto3=REMAIN(3} : :CURSEUR: PRINT 
30%: : jo=VAL (j0$) 

4270 GOSUB 8770: TEMPORISATION 


NP 


>DX< 
TK 
ME 
PUF < 
HE 
>JH 
D 
>IKc 
AL 
>am< 
UC 
>RF< 
WF 


?Q6< 


?LN€ 


?XP< 





4280 CLS:WINDOW SHAP 2,0:G0SUB 7744 


4299 ‘ : 

4300 REM #8 PARTIE Hit 
4319 REM HE 

4320 parcoursi=ÿ:parcours2=: joueur 
=b:pistea=b:pistej=b:sortie=0 

4330 partiel=1:partiez=1:apts1=0: ap 
ts2=0:mei=d: route=0:bonus=b:coefi=1 
:coef2=i 

4349 REM 


4350 WHILE partiel{4 AND partieZ{4 
4360  GOSUB 4646 ‘ Partie du joueu 
ri 

4370  partiel=partiei+i:IF partiel : 
>3 THEN GOSUE 4830 

4380 IF jo=2 THEN G0SUB 4959 ‘ Pa : 


rtie du joueur 2? 


4390 IF jo=2 THEN partieZ=partie? 
+1:1F partie2;3 THEN GOSUB 5140 
4406 WEND 

4419 

4420 REM ####4#4 FIN DU JEU ###4##4 
4436 REM ÉÉRESESS SCSI 


4444 IF aptsi>=apts2 THEN mei=aptsi 
ELSE mei=apts2 

4459 IF mei’record THEN GOSUB 7554 
4466 REM 

4476 WINDOW SWAP 9,2:CLS 

4486 LOCATE 1,2:PRINT "ON REJOUE": 
4499 LOCATE 1,3:PRINT "UNE AUTRE": 
4500 LOCATE 1,4:PRINT "PARTIE 7": 
4516 J=0:EVERY 15,3 GOSUB 855ù 
4520 GOSUB 8720 


4530 rep$=LOWERS (INKEYS):1F rep$="" 


THEN 4530 


4549 IF rep$<>"o" AND rep$<"n" THE 


N PRINT 50$::60T0 4536 

4550 sto3=REMAIN (3) : : CURSEUR: PRINT 
rep$: 

4560 GOSUB 8776 

4576 WINDOW SWAP 2,4 

4580 IF rep$="o" THEN 1=FRE("") :60T 


0 4976 ‘ Retour a L'AFFICHAGE GENE 
RAL 

4599 CLEAR:RUN 

4600 

4618 


4620 REM *# PARTIE DU JOUEUR-1 ## 

4620 REM HN 

4640 GOSUB 7899:G60SUB 8020: joueur=1 

2LOCATE #1,9-24partiel,6:PRINT #1," 
3 

4656 turbo=0:drap=i:yturbo=é 

4660 LOCATE #1,1,2:PRINT #1,in$; "JO 

UEUR: 1"s;in$s 

4676 route=parcoursi MOD 5:coef1=i+ 

INT (parcoursi/5) 

4680 GOSUB 5266 ‘ GESTION DU JOUEUR 


>BQ< 


?TR€ 
2MH< 
>FJ< 
?EK< 


?XL< 


?AR€ 
?LT< 
PRU< 


2YVE 
2ML< 
?NM 
>DN€ 
>JP< 
PQ 


?TR< 
MT 
>JU< 


>BV4 








4696 IF point MOD 121=6 THEN point= 
$:parcoursi=parcoursit+i:G60TO 4678 
4709 LOCATE #1,1,2:PRINT #1. "JOUEUR 
sd": 

4718 RETURN 

4720 ‘ 

4734 REM # AFFICHAGE SCORE-1 * 
4740 REM HAE 

4756 aptsi=aptsitcoefi:aptsi=aptsi 
MOD 19896:point=point+i 

4769 LOCATE #1,1,4 

4776 PRINT #1,RIGHTS$ ("6990 "+MIDS (ST 
R$(apts1),2),4) 

4780 FOR i=49 TO 1 STEP -16:SOUND 4 
5150.9,12:NEXT 

479% RETURN 

4808 

4810 REM * GAME OVER JOUEUR-1 # 
4826 REM HF 

4830 GOSUE 8329 

4840 FOR n=i TO 5 

4850  LOCATE #1,1,2:PRINT #1, "GAME 
OVER"; 

4869  GOSUB 8770:LOCATE #1,1,2 
4870 PEN #1,3:PRINT #i,"JOUEUR: 1 
4884  FEN #1,1:GO0SUB 8774 

4896 NEXT n:SOUND 135,6,1,0 

4906 LOCATE #1,1,6:PEN #1,3:PRINT # 
1, "GAME OVER"; :PEN #1,1 

4914 RETURN 

4920 

4939 REM #+ PARTIE DU JOUEUR-2 ## 

4940 REM HOMO 
4956 GOSUB 7896:G60SUB 8929: joueur=2 
:LOCATE #1,9-24partiez, 14: PRINT #1, 


“ u, 
4 


4964 turbo=ÿ: drap=i:yturbo=b 

4970 LOCATE #1,1,19:PRINT #1,in$:"J 
OUEUR: 2":1in$; 

4986 route=parcours2 MOD 5S:coef2=1+ 
INT (parcours2/5) 

4996 GOSUB 5266 ‘ GESTION DU JOUEUR 


5960 IF point MOD 121=0 THEN point= 
9:parcours2=parcours2+i:60T0 4984 
9019 LOCATE #1,1,10:PRINT #1, "JOUEU 
R: 2"; 

9920 RETURN 

9039 ‘ 

9049 REM * AFFICHAGE SCORE-2 # 

5050 REM HF 

0060 apts2=apts2+coef2:apts2=apts2 
MOD 10090:point=point+i 

5070 LOCATE #1,1,12 

5080 PRINT #1,RIGHT$ ("0000"+MID$ (ST 
R$(apts2),2),4) 

9990 FOR i=40 TO 1 STEP -10:SOUND 4 
5150.93, 12:NEXT 


2HW£ 
2XM< 


>UN< 
>< 
>EQ 
> 
>TTé 


?CU< 
?GV4 


?KW£ 


?CX< 
?PN< 
#EP< 
KQE 
>OR< 
PAT 
#XU< 


?PV& 
> M4 


>HX 
PWY< 
>DP4 


>WQ< 
>TR& 
2JTé 
2NUX 
?XVE 


?XW< 
zUX< 
2RYÉ 
FIX 
?1F4 
?UGX 
2NH< 
KT 
?AK& 
?KL< 
?TM< 


?YN< 
?CP< 


?EQ< 
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9108 RETURN 

5110 

3120 REM + GAME OVER JOUEUR-2 # 
5130 REM HIHI 

5149 GOSUB 8320 

9196 FÜR n=1 TO 5 

9169  LOCATE #1,1,16:PRINT #1, "GAM 
E OVER"; 

5179  GOSUB 8779:LOCATE #1,1,19 
0189 PEN #1,3:PRINT #1,"JOUEUR: 2 


9199 PEN #1,1:GOSUB 877ÿ 

9296 NEXT n:SOUND 135,0, 1,0 

9219 LOCATE #1,1,14:PEN #1,3:PRINT 
#1,"GAME OVER"; :PEN #1,1 

9229 RETURN 

3230 

9249 REM + GESTION DES JOUEURS * 
5250 REM HIHI 
9260 last=0:point=1:bonus=196: ybonu 
s=b: dbonus=i:sortie=à 

9270 x3=17:y3=2+24#route:0x=1:py=0:0 
bjet=32:pistea=5-route 


280 x=1b:y=b:ix=-1: jy=0: image=32:p : 


istej=3:60SUB 6914 


2MG< 
>JKK 
AJ 
>EK< 
>KL£ 
?LM< 
2 TN 


>KP< 
>VQ< 


?CR< 
2FH£ 
#1 


2QŒ< 
2ML< 
>NM< 
?DN< 
?TP4 


?6Q< 


9290 SOUND 1,4909,33,12,,,15:G0OSUB >WT< 
99960: LOCATE 13,13:PRINT " 199 ": 

9300 REM >QJ< 
5319 WHILE sortie=® AND point MOD 1 >EK< 
21420 

9329  ICOPYCHR,x+ix,y+iy, image ILE 
3330  GOSUB 6999:IF sortie THEN 54 >TM< 
36 ‘ GESTION DES COLLISIONS 

9349 IF image=32 THEN GOSUB 5510: >KN< 
60T0 5376 

9330 IF image=144 THEN GOSUE 5514 >BP< 
‘IF joueur=1 THEN GOSUB 4755 ELSE G 

OSUB 5960 

9569 IF image=132 OR image=136 TH JG 
EN GOSUB 5590 

J370  x=xH+ixsy=y+ jy +BR€ 
9389  GOSUB 6369 ‘ GESTION AUTO AM >ET< 
STRAD 

9390 IF y£=15 AND v>=11 THEN G60SU >QU£ 
B 5699 

9490 IF x£=17 AND x>=13 THEN GOSU LE 
B 5890 

9419 IF vturbot=24 THEN GOSUB 797 :YL£ 
@:IF turbo THEN 5436 ‘ GESTION DU T 
UREO 

9426 IF dbonus THEN GOSUB 8190 ‘  >HM< 
GESTION DU BONUS 

3436 WEND FAN 
9440 LOCATE x,v:PRINT " “s:LOCATE x >2P< 
FySs PRINT "3: 

5459 IF point MOD 121=6 THEN GOSUE >EQ< 
8269 ‘ CALCUL DU BONUS 

9466 SOUND 135,4,1,9 3VR£ 
9479 RETURN 2YTÉ 
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5489 

5490 REM +#AFFI, AUTO JOUEUR 142 
5900 REM HIHI 
3916 SOUND 1,4090,23,12,,,15 

9629 LOCATE x,y:PRINT “ ‘; 

9930 :AUTOJOUEUR, x+ix,y+jy,ix, jytRE 
TURN 

5949 STOP 

9999 

9060 REM #CHANGEMENT DE DIRECTION* 

0970 REM HE 
0089 REM +*POUR LE JOUEUR 

9990 IF image=132 THEN 5630 

9609 IF jy=-1 THEN jy=ô: ix=-1: GOSUB 
9919:RETURN 
9619 IF jy=i 

9919:RETURN 
9624 REM 

9630 IF ix=-1 THEN ix=û: jy=1: GOSUB 
9919: RETURN 

9648 IF ix=1 THEN ix=ÿ: jy=-1:G0SUB 
9919: RETURN 

9650 STOP 

668 

0670 REM *MOUVEMENT LATERAL JOUEUR* 


THEN jy=6: ix=1:GOSUB 


0680 REM HIHI 
9696 IF INKEY(22)=6 OR (JOY(6) AND 
8)=8 THEN GOSUE 5730:RETURN 

9799 IF INKEY(30)=6 OR (JOY(6) AND 
4)=4 THEN GOSUB 5890:RETURN 

9/19 RETURN 

5726 REM +* À DROITE 

9730 IF x=28 OR x=19 THEN RETURN 
9746 IF jy=i AND y=15 THEN RETURN 
9790 IF jy=-1 AND v=11 THEN RETURN 
9/66 1x=2:G0SUB 5510: x=x+2: 1x=0 
2770 IF jy=i THEN pistej=pistej-1 E 
LSE pistej=pistej+i 

9/84 RETURN 

9798 REM + À GAUCHE 

9809 IF «=20 OR x=2 THEN RETURN 
9616 IF jy=1 AND y=15 THEN RETURN 
9829 IF jy=-1 AND y=11 THEN RETURN 
9634 ix=-2:G0SUB 5510: x=x-2: 1x=0 
9849 IF jy=1 THEN pistej=pisteji+i E 
LSE pistej=pistej-i 

9894 RETURN 

9869 ‘ 

9679 REM MOUVEMENT VERTICAL JOUEUR 
5880 REM 2H 
9896 IF INKEY(71)=0 OR (JOY(9) AND 
2)=2 THEN GOSUB 5930:RETURN 

9900 IF INKEY(69)=6 OR (JDY() AND 
1)=1 THEN GOSUB 6099:RETURN 

9919 RETURN 

9924 REM +* EN BAS 

9939 IF y=24 OR y=14 THEN RETURN 
9949 IF ix=1 AND x=17 THEN RETURN 


UT 
>IW 
>BL 
)EM 
> 
>EP< 


?DQ< 
?TR< 
PTE 
AUX 
>IVE 
>DW< 
)PME 


2YWE 
2 JX< 


>AN< 
# 4 


3VP£ 
HQE 
3BR< 
?HT< 
#DU< 
?DV< 
?6W£ 


3CX< 
2MY£ 
PP 
?Fa< 
*BR€ 
FCT< 
EU 


2AVE 
2XH< 
2NX< 
2WY£ 
?EZX 


?PQ< 


PARC 
>MT< 
>BU< 
>IV 








5950 IF ix=-1 AND x=13 THEN RETURN 

5960 jy=2:60SUB 5516: y=y+2: jy=0 

5970 IF ix=1 THEN pistej=pistej+i E 

LSE pistej=pistej-1 

9980 RETURN 

5999 REM +* EN HAUT 

6000 IF y=16 DR y=2 THEN RETURN 

6919 IF ix=1 AND x=17 THEN RETURN 

6026 IF ix=-1 AND x=13 THEN RETURN 

6836 jy=-2:G0SUB 5510: y=y-2: jy=0 

6049 IF ix=i THEN pistej=pistej-i E 

LSE pistej=pistej+i 

6450 RETURN 

6966 

6978 REM *GESTION DES COLLISIONS* 
6OBD REM HIHI 

6490 IF image>134 AND image{139 THE 

N GOSUB 5524:G0T0 6130 

6198 IF objet>148 AND objet{153 THE 
N 6139 

6119 IF x=x3 AND v=y3 THEN 6136 
6120 RETURN 

6136 LOCATE x3,y3:PRINT " "à 

6144 PEN 1::COPYCHR, x+ix,y+jv, @i: IF 
1148 AND i£193 THEN LOCATE x+ix,y 
+jys PRINT " "3: 


EH 
2MX< 
?6Y< 


*EZ< 
+ VAS 
+PGX 
3XH< 
ETJ< 
?BE< 
3VL< 


>TM< 
3PN£ 
SUF< 
+0 
PRR< 


DH£ 


SEJ< 
#QK< 
#6L£ 
FM 


6156 SOUND 135,6,1,6:SOUND 4,50,216 : 
13,1 

6169 FOR k=i TO 4 

6176  LOCATE 16+24k,12:PEN Z:PRINT à 
MID$("AUTO",k,1)::PEN 1 

6184  AUTOJOUEUR, x,y,6,-1:G0SUE & : 
319 

6198  :AUTOJOUEUR, x,y,-1,6:G0SUB 6 : 
318 

6206 AUTOJOUEUR, x,v,4,1 :GOSUB & : 
319 

621%  :AUTOJOUEUR, x,y,1,8 :GO0SUB & :YK: 
319 

6229 NEXT 

6236 LOCATE x,y:PEN 3:PRINT CHR$(Z3 
B)::PEN 1 


8249 LOCATE 12,14:PEN 3:PRINT “C H 
0 C"::PEN 1 


6250 FOR 1=15 TO 8 STEF-1:SOUND 4,4 :RF 


06,23,1,,,31:NEXT 

6266 LOCATE x,y:PRINT " ": 

6278 LOCATE 12,12:PRINT " cs 
6284 LOCATE 12,14:PRINT " ‘s 
6298 sortie=i 

6300 RETURN 

6319 FÜR i=1 TO 156:NEXT 

6329 RETURN 

6336 

6349 REM * GESTION AUTO AMSTRAD * 
6350 REM HIHI 
6366 IF turbo THEN turbo=G: RETURN E 
LSE drap=i 

6370 IF x3:=13 AND x3£=17 THEN IF p 





> TM 
>PN 
PF 
>EQ 
PMR 


»QT£ 


istea{piste)j THEN GOSUE 6486: GOTO 
6430 


4380 IF y3=11 AND v3€=15 THEN IF p ) 


isteatpistej THEN GOSUB 6569: G0T0 
6430 


6590 objet2=ob jet: :COPYCHR, x3+ox,v3 > TV< 

+py, éobiet 

6499 GOSUB 6690:1F sortie THEN 6456 :VL< 
© GESTION DES COLLISIONS 

6416 IF objet=32 OR objet=144 THEN :TM£ 

GOSUB 674û 

6426 IF objet=132 OR objiet=136 THEN HN 
GOSUB 6814: ob jet=32 

643 IF last=i THEN last=G:LOCATE x :AF< 

JVSPRINT fes COPYCHR, #3tox, y3+p 

y, éobjet 

6446 x3=x3tox: vI=VT+py #K0< 

6459 RETURN FXR 

b4b REM 3ITÉ 

b476 REM #*+ DIRECTION DROITE #* JU* 

648% IF ox£>1 THEN 6526 >DV< 

6496 IF x3€17 THEN t=2:G0SUB 6646 E :Fié 

LSE last=1 

6564 RETURN 2 TM£ 

6510 REM #+ DIRECTION GAUCHE ## >AN< 

6529 IF ox£>-1 THEN 6568 >BF< 

6536 IF «3313 THEN t=-2:GOSUB 6640 :FQ< 

ELSE last=] 

654% RETURN 3XR< 

655% REM #+ DIRECTION EN BAS ## FT 

6566 IF py£1 THEN 6690 #DU< 

6574 IF y3€15 THEN t=2:60SUB 6684 E ?RV 

LSE last=1 

6589 RETURN BW 

6596 REM #+ DIRECTION EN HAUT #+ *EX< 

6690 IF py£>-1 THEN RETURN ?XN€ 

bbi® IF y3>11 THEN t=-2:G60SUB 6684 :HP< 

ELSE last=i 

bb20 RETURN #WQ< 

630 REM #MOUVEMENT VERTICAL AMSTRA >DR< 


D# 


bb4ÿ IF pisteatpistej THEN py=py-t: : 


objet2=32:60SUB 6740: v3=y3-t:py=0:p 
istea=pistea+i: RETURN 


6650 IF pistearpistej THEN py=pytt: à 


objet2=32:60SUB 6740: y3=y3+t:py=01p 
istea=pistea-1:RETURN 

ébéë STOP 

bb76 REM MOUVEMENT LATERAL AMSTRAD 
6680 IF pisteatpistej THEN ox=ox+tt: 
objet2=32:G0SUB 6740: x3=x3+t:0x=0:p 
istea=pistea+i:RETURN 

6696 IF pistearpistej THEN ox=0x-t: 
objet2=32:60SUB 6740: x3=x3-t:0X=0:p 
istea=pistea-1:RETURN 

670ù STOP 

6716 * 

6720 REM *AFFICHAGE AUTO AMSTRAD 
6720 REM FH 


HV 


> | 


2JX< 


3UY< 


?CP< 
RQ 
?AR< 
?DTé 

















6744 LOCATE x3,y3:PRINT CHR$ (ob jet2 ?RU< 
3 
6758 AUTOAMSTRAD, x3+0x,v2+py,ox,py BV 
RETURN 
6766 STOP 3 JW< 
67176 ‘ FYX£ 
6786 REM #CHANGEMENT DE DIRECTION*X ?VY< 
6790 REM HIHI ETE 
6806 REM *FOUR L'AMSTRAD #RQ< 
6814 IF objet=132 THEN 685ù YR< 
6826 IF py=-1 THEN py=b:ox=1:GOSUB :XT< 
b746:RETURN 
6834 IF py=1 THEN py=ê:ox=-1:G0SUB >YU< 
6746: RETURN 
6849 REM #BV< 
6856 IF ox=-1 THEN ox=b:py=-1:GOSUR KW 
6740: RETURN 
6866 IF ox=1 THEN ox=b:py=1:GOSUE AK: 
6746:RETURN 
6874 STOP FLY 
CET) DTA 
6896 REM * AFFICHAGE DU CIRCUIT # TA 
6900 REM HEURE 
691% FÜR 1=i TO 25 OT 
6924  LOCATE 1,1:PRINT table$(iis >TU 
6934 NEXT AV< 


694% :GPEN, Z:DRAW 6,399:DRAUR 463,6 : 


:DRAWR 6,-399:DRAUR -465,û 


695% RETURN 2CX< 
696% REM 2EY< 
6970 DATA cdddddddddddddddddddddddd :HZ< 
ddde 
6989 DATA frrrrrr rrrr MAS 
rrf 
6996 DATA + cddddddddd dddddddd :XB< 
de f 
7696 DATA frfrrrer rrrer 3XH 
rfrf 
7616 DATA + + cddddddd ddddddde :LJ« 
+ f 
7029 DATA frfrfrrrr rrrré BE 
rfri 
7034 DATA + f f codddd ddddde f :ÿL£ 
ff 
7648 DATA frfrfrirrr r or rfrf FM 
rfrf 
705% DATA + $ f f cddd ddde f + :DN‘ 
+ f 
7669 DATA frfrfrfrfr r r rfrfr£ 5KP< 
rfrf 
7076 DATA f cddddddde YQ< 
f 
7680 DATA # f f 3LR< 
f 
7096 DATA f f $1975 f ?IT{ 
f 
7166 DATA f f f >DJ< 
SA: 
7119 DATA f hdddddddg ?AK< 











f 
7126 DATA frfrfrfrir r rorfrfrfé 56L£ 
rfr 
7136 DATA + f + f hddd dddg + f :KM£ 
ff 
7148 DATA frfrfrfr rer r or orirf :GNE 
rirf 
7150 DATA f f f hddddd dddddg + :FF< 
ff 
7166 DATA frfrérrrr rrr réf 360 
rfrf 
7176 DATA f f hddddddd ddddddda :BR< 
ff 
7184 DATA frfrrrrr rrrer GT: 
rfrf 
7196 DATA f hddddddddd dddddddd {Li 
dg 
7206 DATA frrrrrr rrrer %Xké 
rrf 
7216 DATA hdddddddddddddddddddddadd CL 
dddg 
7220 ‘ 2NM< 
7234 REM * AFFICHAGE JOUEUR-1 + 2EN° 
240 REM HOME 5JP< 
7258 WINDOW SHAF 1,6 >HD< 
7268 LOCATE 1,2:FRINT "JOUEUR: 1":  :YR< 
7274 LOCATE Ï,4: PRINT "66600 PTS": :2T< 
7284 LOCATE 1,6:PRINT " “es  FYUÉ 
7296 FOR xc=3 TO 7 STEF 3 3EV< 
7309  SAUTOJOUEUR, xc,6,4,-1 #HL< 
7318 NEXT #TM< 
7320 WINDOW SHAP 1,9 #FN< 
7338 RETURN 3VF< 
7340 #RD< 
7556 REM + AFFICHAGE JOUEUR-2 + JR£ 
7360 REM FH 3MT< 
7376 WINDOW SHAP i,6 LU< 
7389 LOCATE 1,16:PRINT “JOUEUR: 2": DV 
7296 LOCATE 1,12:PRINT "66066 PTS": >DW£ 
7466 LOCATE 1,14:PRINT ‘ Me > TM< 
7416 FOR xc=3 TO 7 STEF à FYNE 
7428  :AUTOJOUEUR, xc, 14,4, -1 2MP< 
7438 NEXT WG 
7446 WINDOW SWAF 1,6 JR 
7454 RETURN PVTE 
7468 3VU£ 
7476 REM *AFFI. DU RECORD PRES. # 2NVE 
7484 REM HO :LW£ 
7498 LOCATE #1,1,18:PRINT #1,"RECOR >XX< 
D:"::LOCATE #1,1,26 
7596 PRINT #1,RIGHTS$ ("9669 "4MIDS (ST © JM£ 
R$ (record) ,2),4);"0" 
7519 LOCATE #1,7,26:PRINT #1,"PTS"s UP 
7526 RETURN 2WQ< 
7536 REM * AFFICHAGE DU RECORD # ?TR€ 
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7540 REM HF HP 
7559 i=FRE(""}:SOUND 135,9, 1,0 

7569 FOR n=i TO 5 

7576  LOCATE #1,1,18:PRINT #1,"REC 
ORD: 
7580 

N #1,3 
7598 PRINT #1, "JOUEUR: "+STR$(1-(m 
eiraptsi)); 

160%  FEN #i,1:GOSUB 8770 

7618 NEXT n 

7626 LOCATE #1,1,29:PRINT #1,RIGHT$ 
("9000"+MID$ (STR$ (mei},2),4) 

7636 LOCATE #1,1,18:PEN #1,1:PRINT 
#1,"RECORD: ": 

7648 record=mei 

7659 RELEASE 7 

7668 FOR i=i TD 12 

767  SOUND 2,(13-1}#44,12,13 

7688 FOR j=400 TO 0 STEF -30:SDUN 
D 4,j,0.7,13:NEXT 

7698 NEXT 

7706 RETURN 

71718 

7729 REM * AFFICHAGE DU TITRE # 
7720 REM HOME 

7749 WINDOW SHAP 9,2 

7750 LOCATE 1,1:PEN 3:PRINT "AUTO": 


GOSUB 8776:LOCATE #i,1,18:PE 


776 LOCATE 5,1:PEN G:PRINT "-"; 
7779 LOCATE 6,1:PEN 3:PRINT "CHOC"; 


7780 PEN à 

7794 FOR i=i TO 3 

7869 FOR j=1 TO LEN(no$(i}) 

7816 LOCATE j,1+1:PRINT CHR$(AS 
C(MID$(no$(1},3,1))-1); 

7824  NEÏXT 

7830 NEXT 

7846 WINDOW SHAP 2,0 

7850 RETURN 

7864 * 

7876 REM * AFFICHAGE DE TURBO # 
7080 REM HIHI 
7898 LOCATE #3,1,1:PEN #3,0:PRINT # 
3, "TURBO" 

7906 FOR ty=7 TO 24:LOCATE #3,1,ty: 
PRINT #3,car$s;:NEXT 

7916 FOR i=1 TO LEN(car$):LOCATE #3 
11,29: PRINT #3,MID$(car$, 1,1}5:NEXT 


7920 LOCATE #3,1,7 

7936 RETURN 

7946 

795% REM * GESTION DU TURBO # 

7960 REM HET 

7976 IF drap AND (J0Y(6)>15 OR INKE 

Y(47)=0} THEN SOUND 136,9, 1,0: SOUND 
2,2600,48,13,6,1,15:yturbo=yturbot 
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HT 
>HU< 
>UV< 
>UW< 


?FX< 


>BY< 


>AP 
>FK 
MR 


>GT< 


?TU< 
?WV< 
?PW 
?FX< 
PWY< 


?EZ< 
+WQ< 
TR 
IT 
>NUK 
>NVE 
>AW< 


?LX< 
?CY< 


»GZ< 
RAK 
?LR< 
FHT< 


EU“ 
>AVK 
>PH< 
?CX< 
?IV< 
?CZ 
>VAS 


>CB£ 


HT 


>BU< 


?JVé 
>BW< 
>YX< 
>BY< 
?CZX 
LA 


1:LOCATE #3,1,yturbo:PRINT #3," "s: 
turbo=1i: drap=6 


7980 RETURN ?6B< ° 
799% ‘ >DC< 
8900 REM * AFFICHAGE DE BONUS # >GJ< 
8010 REM HR )EK< 


8020 LOCATE #4,1,1:PEN #4,0:PRINT # >KL< 
4, "BONUS" 

8039 FOR ty=7 TD 24:LOCATE #4,1,ty: >EM< 
PRINT #4,car$: :NEXT 


8040 FOR i=1 TO LEN(car$):LOCATE #4 >YN< 
51,29: PRINT #4,MID$(car$,i,1)5:NEXT 
8050 LOCATE #4,1,7 ?EP< 
8669 RETURN >WQ< 
8070 ?TR€ 
8080 REM # GESTION DU BONUS # ?QT< 
8090 REM #4 x XU< 
8190 count=count+i:1F count<31 THEN >KK< 
RETURN 

8119 count=6:bonus=bonus-16:vbonus= ;XL< 
ybonus+i 


8126 LOCATE #4,1,ybonus:PRINT #4,"  >PM< 
"s 

8138 LOCATE 14,13:PRINT RIGHTS ("646 >MN< 
“4+MID$ (STR$ (bonus) ,2},3); 


8149 IF bonus=û THEN dbonus=û JUP< 
8156 RETURN :WQ< 
8166 * ?TR£ 
8170 REM ## PRISE EN COMPTE ## 2HT< 
8189 REM DU BONUS ?RU< 
8194 REM HE MK 
8206 i=FRE(""):SOUND 135,0,1,6:1F b >NLé 
onus=0 THEN RETURN 

8216 FOR i=bonus TO @ STEP -16 VE 
8220  LOCATE 14,13:PRINT RIGHT$("O >RN< 
00"+MID$(STR$(1),2),3): 

8239 IF joueur=i THEN LOCATE #1,1 >TF< 


PRINT #1,RIGHT$ ("0000"+MIDS (STRS 
(aptsi+(bonus-1)/19),2),4): ELSE LO 
CATE #1,1,12:PRINT #1,RIGHT$ ("0696" 
#MID$ (STR$ (apts2+ (bonus-i)/10),2),4 

}; 

8244 FOR j=509 TO 1 STEP -26:SOUN >MQ< 
D 4,5,0.9,13:NEXT 


8256 NEXT F4R< 
8260 IF joueur=1 THEN aptsi=aptsi+b ET 
onus/10 ELSE apts2=apts2+bonus/16 

8276 bonus=0:G0SUB 86236: SOUND 131,0 >AU< 
51,0 

8280 RETURN #AV< 
8298 ‘ ?XW< 
8300 REM *#4#+ GAME OVER ####4# }AM< 
8310 REM HE ?XN< 
8326 FOR i=i TD 12 >HP< 
8330  SOUND 2,1i#44,12,13 >DQ< 
8346 FOR j=490 TO 6 STEP -36:SOUN >NR< 
D 4,j,0.6,13:NEXT 

8356 NEXT ANT 





8360 RETURN >1K 
8376 REM #### MUSIQUE No 2 #kt#  )TVE 
8380 REM CPPTEFSE SITES ?RWE 
8390 b=0:c=0: ad=1. 4 >JK 
8400 RESTORE 8449 >UN< 
8410 FOR i=1 TO 31:G0SUB 3180:NEXT DWP< 
8420 FOR i=1 TO 1000:NEXT i:SOUND 1 >HO< 
35,0,1,0 

8430 RETURN >AR€ 
8440 DATA 5,40,2,10,1,19,5,10,3  SUT< 
8450 DATA 19,1,20,13,20,10,10,13  >UUX 
‘8460 DATA 30,8,40,5,20,1,20,3,40 HV 
8470 DATA 3,49,5,40,3,10,1,19,5 BW 
8480 DATA 10,3,10,1,20,13,20,18  >UX£. 
8490 DATA 10,13,30,8,20,5, 19,1 >DY< 
8500 DATA 10,3,20,5,19,3,10,1,40  >Pé 
8510 DATA 1,40 > 
8520 ‘ >TR 
8530 REM + CLIGNOTEMENT CURSEUR + >AT< 
8540 REM HSE *EU< 
8550 !CURSEUR: RETURN > 
8560 ‘ >XHé 
8570 REM *ATTENTE D'UNE TOUCHEX  >NX4 
8586 REM HER ?TY£ 


8590 m$=STRINGS (49, ",")+"APPUVER. SU >RZ< 
R.UNE. TOUCHE... SV. P. "4STRINGS (46, * 


.") 


8606 GOSUR 8720: m=1: j=0:L=0: K$=INKE TU 
Y$ 
8616 WHILE k$="" 2WR€ 


8620  LOCATE 1,25:PEN 1:PRINT MID$ :PTE 


(m$,mn, 44); 
8636 m=mti:IF m'LEN(m$)-46 THEN m :NU< 
=itj=NOT j:PEN 2+AB5(j) 
8649  L=NOT L:LOCATE 12,1:PEN ABS( ?RV£ 
L):PRINT "AUTDO-CHOC": 
8658 FOR k=i TD Sü:NEXT:KS=INKEYS HW 
8664 WEND 3JX£ 
8679 LOCATE 12,1:PEN 1:PRINT “A U T NY 
D-CHOC": 
868% RETURN ?EZK 
8696 +BA< 
8709 REM *# VIDAGE DU BUFFER CLAVIE >KR< 
R ## 
8710 REM HE DLTS 
## 
8720 FOR i=i TO 20:z$=INKEYS:NEXT  >UU< 
8738 RETURN AVE 
8749 ETES 
8750 REM ##+ TEMPORISATION ### #WX< 
8760 REM HR 3PY< 
8776 FOR i=1 TO 909:NEXT 3LZ< 
8789 RETURN ?FAK 
8794 ‘ >CB“ 
8800 REM +##+ CAS DU BREAK ###4 ?CT 
8814 REM ÉLÉÉSÉÉESESSSS) >PUK 


8829 MODE 2:PEN 1:PAPER 9:CLS:PRINT ?NV< 
S0$; : STOP 


FACE 1 = 


(si 

PLAY IN THE SUNSHINE 
HOUSEGUAÉE 

DOROTHY PARÉER 

1 SRE 


i  STARFISH AND COFEE 
i  SLOH LOVE 

HOT THING 
il MFACE 2 

i T THE LOÏK 

1 IF 1 WAS YOUR GIRLFRIEND 

1 STRANGE RELATIONSHIP 

NEVER TAKE THE FLACE OF YOUR MAN 
THE CROSS 

i  BEAUTIFUL NIGHT 

UNTIL THE END OF TIME 


PRINCE 
SIGN OF THE TIMES 





1 
' 
1 
1 
1‘ 
! 
1 
; 
1 
4 
s 
U 
1 
' 


UETTE 


Bernard VABRE 





JAQUETTE permettra à tous les amateurs d'enregistrements audio de 
réaliser des jaquettes pour leurs cassettes. Finies avec cet utilitaire, 
les présentations bâclées. Ce programme a été conçu pour le CPC 
6128. Il tourne sans problèmes sur le 664. Pour le 464 quelques 
aménagements seront nécessaires. (Supprimer module traitements 
d'erreurs - Revoir sauvegarde -chargement). 


Voici les différentes options de ce pro- 
gramme : 


- COULEUR : permet de modifier les 
couleurs de travail. 

- SAISIE : pour saisir le titre de la cas- 
sette, le ou les auteurs, le titre des 
chansons (20 lignes) et d'éventuelles 
remarques. 

- MODIFICATION : lorsque la ligne 
n'est pas à modifier, faire RETURN ; 

+ 1 appui sur ESPACE + RETURN : 
efface toute la ligne, bien que celle-ci 
reste affichée à l'écran. 

+ 1 appui prolongé sur ESPACE : effa- 
ce toute la ligne à l'écran. 

Revenir au début pour correction. 

- IMPRESSION : prévu pour fonction- 
ner avec la DMP 2000. En cas d'utilisa- 
tion avec une imprimante non compati- 
ble, modifiez les lignes 10060 ét 
10295. 


CHARGEMENT-SAUVEGARDE : en 
cas d'erreur, le programme vous affi- 
chera le type d'erreur, et attendra l'appui 
sur une touche, avant de revenir au ME- 
NU. Refaites alors l'opération (6128 et 
664). 

VISION : visualise la jaquette avant 
sauvegarde ou impression, modifica- 
tion. 


ATTENTION : le poke de la ligne 
19 évite l'arrêt du programme et le 
"RESET" par CTRL+SHIFT+ESC. 
Ne supprimez le REM, que lorsque le 
programme a été sauvegardé et fonction- 
ne correctement. Sinon, tout votre 
travail sera perdu. Lors de la saisie, ne 
mettez pas de virgule. En cas de "planta- 
ge" du programme, faire GOTO 1000. 


1 JAQUETTE 

19 VABRE Bernard 

li: 

15 ‘ 

16 ‘ 

19 ‘POFE BBDEE,20i: ‘ANNULE CTRL+ :K 


SHIFT+ESC 


30 MODE 1:BORDER 62 INE 0.6: INE 1,26 > 


32 FOR x=1 TO 399 STEP 14G:NEXT:FÜR à 


vi=à TO 639 STEF 96:DRAW x,1,3:DRA 
W i.vi,3:INE 3,B:NEXT 

35 WINDOW #1,1,49,1,1:INÉ 2,1:PAPER 
#1,2:CLS #i:LOCATE #1,12,1:PRINT#I 
SJAQUETITE" 

49 LOCATE 6.6:PRINT"Ce":LOCATE 19,6 
:PRINT'programme , tres Simple , vo 
us" 
45 LOCATE i,8:PRINT "permettra": LOCA 
TE 12,8:PRINT"'de":LOCATE 16,B:PRINT 
“realiser des JAQUETTES" 


»TJ4 


2HE< 


>AK£ 
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46 LOCATE 1,19:PRINT"pour":LOCATE 6 

,18:PRINT"vos cassettes AUDIO." 

47 LOCATE 5,12:PRINT"Toutes les":L0 

CATE 16,12:PRINT"explications neces 

saires" 

48 LOCATE 1,14:PRINT'"sont incluses" 
LOCATE 15,14:PRINT"dans les differ 

ents modu-" 

49 LOCATE i,16:PRINT'"les. Les":LOCA 

TE 11,16:PRINT'codes":LOCATE 17,16: 

PRINT'"'d'imprimantes utilises" 

99 LOCATE 1,18:PRINT"sont ceux de 1 
“AMSTRAD DMP 2000." 

6@ LOCATE 6,24:PRINT"En cas":LOCATE 
15,26: PRINT"de":LOCATE 16,20: PRINT 

“plantage , du programme,“ 

b5 LOCATE 1,22:PRINT'faire <60T0":L 

OCATE 13,22:PRINT"1900;" 

76 WINDOW #2,1,49,25,25: INK 2,1:PAP 

ER #2,2:CL5#2 

85 LOCATE #2,5,25:PRINT#2, "APPUYER 

SUR UNE TOUCHE “'sCHR$ (24) ; "VAB 

RE. B";CHR$ (24) :CALL ZEB06 

96 DIM D$(23):DEFINT A-Z 

165 BORDER 7:MODE 2:FAPER G:PEN 1 


1900 ‘ MENU 

1995 ‘ 

1919 CLS:MODE 2: ON ERROR GOTO 5206 
ô 


1915 GOSUE 66166 

1926 LOCATE 28,4:PRINT'M E N U" 
1925 LOCATE 28,5:PRINT" : 
1936 LOCATE 15,8:PRINT' I -----—- > € 
DOULEUR d'ecran,“ 

1646 LOCATE 15,10:FRINT"2 
SAISIE Jaquette. 

1994 LOCATE 15,12:PRINT'"3 
MODIFICATION. 

1969 LOCATE 15,14:PRINT"4 
IMPRESSION. 

1676 LOCATE 15, 16:PRINT"S 
CHARGEMENT jaquettes. 
1986 LOCATE 15,18:PRINT"6 
SAUVEGARDE jaquettes. 
1996 LOCATE 15,26:PRINT"7 
VISION jaquette chargee. 
1995 LOCATE 15,22:PRINT"8 
FIN." 

1196 b$=INKEYS:IF b$="" THEN 1169 
1195 IF b$="1" THEN 2000 

1106 IF b$="2" THEN 4006 

1197 IF b$="2" THEN 15006 

1198 IF b$="4" THEN 16096 

1109 IF b$="5" THEN 6000 

1116 IF b$="b" THEN 5694 

1111 IF b$="7" THEN 7060 

1112 IF b$="8" THEN 8600 

1115 IF b$<"1" OR b$<5"2" OR b$<>" 
3" OR b$<"4" OR b$<"5" OR b$5>"é" 





——…——…——" 


————— "+ 


18 


2NLE 


?PM£ 


?LN€ 


PRP< 


HF 


?EG< 


2WM< 


?BH< 


>TP< 


2YÉ£ 
?FG< 
?LB< 
*HG£ 
?NC< 


3H 
>PD< 
#HJ< 
?RE< 


3BF< 


>DF< 
AI 





OR b$<>"7" OR b$<>"8" THEN SOUND 1 
29,49:60T0 1196 

2008 COULEUR DE TRAVAIL 
2018 

2920 MODE 2:CLS:60SUB 69166:LOCATE 
17,16: INPUT"quelle couleur pour le 


papier: ",c 


2630 LOCATE 17,12: INPUT"quelle coul : 


eur pour la bordure: ",ci 

2649 LOCATE 17,14: INPUT'"quelle coul 
eur pour l'encre: ",c2 

285% IF c2=c THEN SOUND 129,39:LO0CA 
TE 16,24:PRINT"une couleur d'encre 

differente du papier S.V.P“::G0TD 2 
949 


2866 BORDER cisINK @,c: INK 1.c2:CLS : 


:GOTD 1469 

4000 

SAISIE BANDE + AUTEUR+CHANSONS 
4905 ‘ 

4916 CLS:MODE 1:G0SUB 60169 

4015 A$=STRINGS (66, CHR$ (46) }+CHR# (1 
51) 


4929 LOCATE 2,2:PRINT CHR$(24):"GAI à 


SIE: AUTEUR CHANSONS 


“;CHR$ (24) 


TITRE 


4936 LOCATE 9,168:PRINT STRING#(18," : 


."):CHR$ (151) 


4940 LOCATE 2,19:LINE INPUT “AUTEUR : 


:",D$(9) 


LG 


2MH£ 


?EL£ 


4650 IF LEN (D$(9)}:18 THEN PRINT © YK£ 


HR$ (7) :G0TO 4646 


4976 LOCATE 8,13:PRINT STRINGS(46," 


.");CHR$ (151) 


4986 LOCATE Z,13:LINE INPUT "TITRE: > 


",D$(1) 
4990 IF LEN (D$(1))>46 
CHR$(7):G0TD 4478 


THEN PRINT 


4166 LOCATE 12,17:PRINT STRINGS (44, : 


“.");CHR$ (191): LOCATE Z,17:LINE INF 

UT "REMARQUES: ", D$ (3) 

4116 IF LEN (D$(3)):46 THEN PRINT 

CHR$(7):G0T0 4164 

4128 CLS:MODE Z:LOCATE 3,Z:PRINT CH 

R$(24);" SAISIE TITRES DE 

S CHANSONS PAR LIGNES (24 lignes) 
“4; CHR$ (24) 

4i2i GUSUB 66168 

4139 LOCATE 19,3: PRINT USING "&";a$ 

LOCATE 7,3:LINE INPUT “is ",D$(4) 

4140 IF LEN (D$(4i)>66 THEN PRINT 

CHR$(7):G0T0 4136 


4156 LOCATE 19,4: PRINT USING "&'sa$ : 


LOCATE 7,4:LINE INPUT “2: ",D$(5) 
4169 IF LEN (D$(5))>66 THEN PRINT 
CHR$(7):G0T0 4150 


4170 LOCATE 16,5:PRINT USING "E":A$ à 


tLOCATE 7,9:LINE INPUT “3: Dé (6) 
4180 IF LEN (D$(6))}>66 THEN PRINT 


THE 


2KP< 





CHR$(7}:60T0 4170 


4196 LOCATE 10,6:PRINT USING “&";A$ : 


:LOCATE 7,6:LINE INPUT "4: ",D$(7) 


4269 IF LEN (D$(7)}>60 THEN PRINT 


CHR$(7):G60T0 4196 


4219 LOCATE 19,7:PRINT USING "&';a$ ; 


tLOCATE 7,7:LINE INPUT 
4226 IF LEN (D$(8)) +60 
CHR$(7}:60T0 4216 

4236 LOCATE 16.8:PRINT USING “&"; a$ 
*LOCATE 7,8:LINE INPUT "és ",D$(9) 
4249 IF LEN (D$(9))>60 THEN PRINT 
CHR$(7}:60T0 4230 


“9: ",D$(8) 
THEN PRINT 


4258 LOCATE 19,9:PRINT USING “&";a$ : 


tLOCATE 7,9:LINE INPUT "7: ,D$(10) 


4269 IF LEN (D$(10)3:68 THEN PRINT 
CHR$(7):G0TO 4250 


4274 LOCATE 19.19:PRINT USING "&"sa 


$:LOCATE 7,16:LINE INPUT "8: ",D$(i 
1) 


EN 


4280 IF LEN (D$(11))>6@ THEN PRINT >KG 


CHR$(7):60T0 4276 

4294 LOCATE 19,11:PRINT USING "&";a 
$:LOCATE 7,11:LINE INPUT "9: ",D$(1 
2) 

4304 IF LEN (D$(12))>6 THEN PRINT 
CHR$(7):G0TO 4296 
4216 LOCATE 16,12:PRINT USING “&";a 
$:LOCATE 7,12:LINE INPUT “10:",D$ (1 
3) 

4324 IF LEN (D$(13))>64 THEN PRINT 
CHR$(7):60T0 4316 


3FH£ 


?QJ< 


ve 


>BK 


4336 LOCATE 19,13:PRINT USING "&'sa 3XL< 


#:LOCATE 7,13:LINE INPUT “ii:",D$( 
4) 


4540 IF LEN (D$(14))>60 THEN PRINT : 


CHR$(7):G0TO 4336 


4350 LOCATE 16,14:PRINT USING ‘&'sa 


$:LOCATE 7,14:LINE INPUT “12:",D$ (1 
J} 
368 IF LEN (D$(15))364 THEN PRINT 
CHR$(7):60T0 4356 
4378 LOCATE 19,15:PRINT USING "&";a 
$:LOCATE 7,19:LINE INPUT “13:",.D$(1 
6) 


4580 IF LEN (D$(16})>60 THEN PRINT : 


CHR$(7):G0TO 4370 

4590 LOCATE 16,16:FRINT USING "&"sa 
$:LOCATE 7,16:LINE INPUT “14:",D$(1 
7) 


4406 IF LEN (D$(17))>66 THEN PRINT : 


CHR$(7):60TO 4396 


4419 LOCATE 19,17:PRINT USING ‘ia > 


$:LOCATE 7,172LINE INPUT "15:",D$ (1 
8) 

4426 IF LEN (D$(18))>60 THEN FRINT 
CHR$(7}:G0TO 4416 


2MP< 


#KQ< 


de 
eu 


3L< 


4439 LOCATE 19,18:PRINT USING "&':a 
$:LOCATE 7,18:LINE INPUT "16:",D$(1 

9) 

4446 IF LEN (D$(19))>60 THEN PRINT 
CHR$(7):G60T0 4436 

4450 LOCATE 19,19:PRINT USING “&';a 
$:LOCATE 7,19:LINE INPUT "17:",D$ (2 
0) 

4460 IF LEN (D$(26))>60 THEN PRINT 
CHR$(7):G0TO 4456 

4479 LOCATE 19,26:PRINT USING “£':a 
$:LOCATE 7,20:LINE INPUT "18: ",D$ (2 
1) 

4486 IF LEN (D$(21))260 THEN PRINT 
CHR$(7):G0T0 4470 

4496 LOCATE 19,21:PRINZ USING "&";a 
$:LOCATE 7,21:LINE INPUT "19:",D$ (2 
2) 


4500 IF LEN (D$(22))>60 THEN PRINT : 


CHR$(7):GOTO 4499 


4519 LOCATE 19,22:PRINT USING "&'s;a à 


$:LOCATE 7,22:LINE INPUT “29: ",D$ (2 
3) 


4524 IF LEN (D$(23))260 THEN PRINT : 


CHR$(7):60T0 4519 


4536 LOCATE 4,23:LINE INPUT "REDUCT 


EUR DE BRUIT :DOLBY / NR ",D$(2) 
4549 LOCATE 25,25:PRINT CHR$(24):" 
APFUYEZ SUR UNE TOUCHE “;CHR$ (24) 
4550 CALL £BB66 
4566 GOTO 1666 
4570 
9669 ‘___ SAUVEGARDE JAQUETTE 
9092 
9905 CLS:MODE 2:G0SUB 60164: LOCATE 
3,2:PRINT CHR$(24):" 

SAUVEGARDE DU FICHIER 

“A CHR$ (24 

} 


5016 CAT:LINE INPUT "NOM DU FICHIER > 


2", fichs 
5015 OPENOUT FICH$:FOR 1=0 TO 23 
5020 PRINTH9, D$ (I) :NEXT 
5030 CLOSEOUT 
5090 GOTO 1900 
400 ‘__ CHARGEMENT JAQUETTE 
&o2 
6095 CLS:MODE 2:60SUB 69160: LOCATE 
3,2:PRINT CHRS(24);" 

CHARGEMENT D'UN FICHIER 

“: CHRS (24 

} 


" 


AN 


?PN€ 


ca 


PRP< 


a 


2KQ< 


?DR€ 


La 


?QTÉ 


?KU< 


6419 CAT:LINE INFUT “NOM DU FICHIER >XH 


s", fich$ ‘ 

6915 OPENIN FICH$:FOR 1=6 TO 23 
66269 INPUT #9,D$(1):NEXT 

6939 CLOSEIN 

6696 GOTO 1966 

7609 ‘VISION DE LA JAQUETTE 


7805 ‘ 

7619 CLS:60SUB 62166 

7615 LOCATE 79,1:PRINT CHR$(24) 5" V 

ISION “;CHR$ (24) 

7926 FOR 1=4 TO 23:PRINT ;" 

$CI):NEXT 

7630 LOCATE 5,22:PRINT"AUTEUR 
: “5 D$(0) 

7949 LOCATE 5,23:PRINT'TITRE 
: ":D$(1) 


“D 


7959 LOCATE 5,24:PRINT"REDUCTEUR DE : 


BRUIT: ":D$(2) 
7066 LOCATE 5,25:PRINT"REMARQUE 
: “s:D$(3) 
7670 LOCATE 56,25:PRINT CHR$(24);" 
APPUYEZ SUR UNE TOUCHE ":;CHR$ (24) 


7989 CALL &BB66:GOTO 1909 
8606 FIN 
8019 ‘ 


8929 MODE 1:CLS:60SUB 6016 

8939 LOCATE 4,8:PRINT "FIN DE TRAVA 
IL.....":LOCATE 15,13: PRINT ".... D 
“ACCORD ? O/N ":AS=INKEYS: IF A$="" 
THEN 8636 

8935 IF A$="0" OR A$="o" THEN GOTO 
8946 

8937 IF a$="N" OR a$="n" THEN GOTO 
1600 


8949 FOR t=1 TO 3599: NEXT: BASIC 
16060 MODULE IMPRESSION 
19019 ‘ 


19640 CLS:MODE 1:G0SUB 69169: LOCATE 
93,9:PRINT'PREPAREZ L'IMPRIMANTE" 


16050 LOCATE 19,19:PRINT'PUIS PRESS 


EZ:":LOCATE 15,12:PRINT" -à I-mpres 

sion. ":LOCATE 15,14: PRINT" - M-enu 
19055 c=INKEYS 

19856 IF c$="1" DR c$="i" THEN GOTO 
19065 


19057 IF c$="M" OR c$="m" THEN GOTD ; 


1696 


199058 IF c$i"i" OR cé "I"OR ci" à 


a" OR c$<>"M" THEN 19055 


19966 CLS:LOCATE 19,19:PRINT"IMPRES 


SION EN COURS":PRINT#8, CHR$ (27) +CHR 
$(64) : PRINT#8, CHR$ (27) ; "0"; CHR$ (15) 


19976 GOSUB 14410 


19086 PRINT, "1"3TAB (5) ;D$ (4): TAB( : 


69)"i" 


19098 PRINTHE, "1": TAB (5) :D$ (5) : TAB : 


gg)ni" 


19190 PRINTHB, “i":TAB(S) ;D$ (6) ; TAB( : 


(CDI 


19116 PRINT#B, "i"3TAB(S) ;D$ (7); TAB( : 


gp)"i" 


19126 PRINT#B, “i";TAB(S) ;D$ (8) ; TAB( : 


ggp"i 


>PN€ 
JUJ< 
>FP4 


2WK< 


?XL< 


>HQ 


?TR€ 
BWJ< 
?LK< 
?FL£ 
2MME 


ANVTÉ 


>HV£ 


FWN< 
>JB< 
?FC< 
2VF4 











19130 PRINTHS, "1" :TAB(5) :D$ (9) : TAB ( 
&)":" 

10149 PRINT#B, "1": TAB(S) :D$ (10) : TAB 
(6g)"i" 

19150 PRINTHB, "! "3; TAB(S) :D$ (11): TAB 
(69) 1" 

19160 PRINTHB, "1": TAB(5) :D$ (12) : TAB 
(69)"i" j 

19170 PRINT#8, 1": TAB(5) ;D$ (13) : TAB 
(ep) i" 

19180 PRINTHB, “!":TAB(5) :D$ (14): TAB 
(69)";" 

19190 PRINT#B, 1"; TAB(5) ;D$ (15) : TAB 
(69) 1" 

10200 PRINT#8, ‘!"; TAB (5) :D$ (16) : TAB 
(gg)"" 

19210 PRINT#8, "1": TAB(S) :D$ (17): TAB 
(6g)"i" 

19220 PRINTH8, 1"; TAB(S) ;D$ (18) : TAB 
(ég)"i" 


19230 PRINT#B, "1": TAB(S):D$(19): TAB > 


(g?)"i" 


19249 PRINT#B, "1"; TAB (5) :D$ (20); TAB : 


(89)"i" 
19259 PRINT#B, "1"; TAB (5) :D$ (21) ; TAB 
{89)"i" 


19269 PRINTHE, "1": TAB (5) :D$ (23) ;TAE : 


(89)"i" 


19279 PRINT#B, "1"; TAB (5): D$ (23): TAB : 


(69)"i" 

19286 GOSUB 10419 

19205 PRINT#8,":"3;TAB (5):CHR$(27)+ 
MES CHRS (27) +"H'4CHRS (1) ; D$ (0) : CHR$ 
(27)+"H"4CHRE (0) ; CHR$ (27) +"F "3 CHR ( 
15) 

16369 PRINT#8, "1"; TAB(é9)"i" 

19319 PRINT#B,":":TAB (5):D$(1): TAB 
(69)"i" 

19329 GOSUB 10418 

19339 PRINTH8,"i";TAB(69)" 5" 

19340 PRINT#8,":";TAB(S);D$ (2: ; TAB( 
gi" 

16354 PRINT#B,":":;TAB(69)"i" 


19366 PRINT#8,":":TAB (5):D$ (5): TAB : 


(é9)"i" 

16376 GOSUB 10416 

16400 GOTO 1660 

16410 PRINT#E, "5"; STRINGS (67, "-"); 
TAB(69)" 5" 

16429 RETURN 

15909 ‘ MODIFICATION 

15885 ‘ 


15919 CLS:MODE 1:G0SUB 60169: LOCATE 


MODI 
"': CHRS (24) 


2,2:PRINT CHR$(24);" 
FICATION 


15929 LOCATE 3,7:PRINT'LORSQUE LE P ; 


OSTE N'EST PAS" 
15936 LOCATE 14,9:PRINT'A MODIFIER 


?PF< 


JG 


?LH 


?NJ< 


ŒK< 


?TLK 


>VM 


>MD< 


?PEX 


2RF< 


>VK£ 
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FAIRE £RETURN:. " 

15946 LOCATE 2,15:PRINT"'AUTEUR: “:D 
$(4) 

15858 LOCATE 14,15:G0SUB 16060 
15668 IF B$:=" "THEN D$(9)=B$ 

15065 IF LEN (d$(9})>29 THEN PRINT 
CHR$(7):G0T0 15640 


15074 LOCATE 2,18:PRINT'TITRE: ":D$( WP 


1i 

15680 LOCATE 8,18:G60SUB 16690 
15090 IF B$>=" " THEN D$(1)=B$ 
15695 IF LEN (d$(1)i>46 THEN PRINT 
CHR$(7):G0T0 15878 


1514ÿ LOCATE 2,21:PRINT'REMARQUES:* 


3 D$ (3) 
15114 LOCATE 12,21:G0SUE 16606 
15124 IF B$:=f “THEN D$(3)=B$ 
19125 IF LEN (d$(3));49 THEN FRINT 
CHR$(7}:GOT0 15196 
15136 CLS:MODE 2:GOSUE 64166: LOCATE 
7,2 PRINT CHR$ (24) 3" 
MODIFICATION 
"CHARS (241) : CHR (24) 

15135 LOCATE 7,3:FRINT"I: ‘Dé (4) 
15144 LOCATE 19,3:G0SUE 16460 
15156 IF B$:=" " THEN D$(4)=E$ 
15153 IF LEN (d$(4)):66 THEN PRINT 
CHR$(7):G0T0 15135 

15166 LOCATE 7,4:PRINT"2: “:D$(5) 
15174 LOCATE 19,4:G0SUE iéééi 
15184 IF E$:=" " THEN D$(5)=B# 
15185 IF LEN (d$(5))>64 THEN FRINT 
CHR$(7):G0T0 15166 

15196 LOCATE 7,5:FRINT"3: “:D$(é) 
15204 LOCATE 16,5:G0SUB 16666 
15216 IF Bgi=" ® THEN D$i6)=E# 
15215 IF LEN (d#(bii:68 THEN PRINT 
CHR& (7): GOT 15194 

15226 LOCATE 7,6:FRINT"4: “:D$(7) 
15234 LOCATE 14,6:GO0SUB 16400 
15249 IF Biz" “THEN D$(7)=E$ 
15245 IF LEN (d${7)i56à THEN FRINT 
CHR$(7):60T0 15224 

15254 LOCATE 7,7:FPRINT"5: ":D$i8) 
15264 LOCATE 19,7:GO0SUE 16440 
15279 IF Bg:=" " THEN D$(8=B$ 
15275 IF LEN (d$(B)}:64 THEN FRINT 
CHR$(7):G0T0 15256 

15284 LOCATE 7,8:FRINT"6: “:D$(9) 
15296 LOCATE 19,8:G60SUE 1644 
15364 IF E$s=" THEN D$(9)=E# 
9365 IF LEN (d$(9:}5:64 THEN FRINT 
CHR$(7):GOTO 15284 

15316 LOCATE 7,9:FRINT"7: "sD$(ié) 
15329 LOCATE 14,9:G0SUB 16406 
15324 IF Bgi=" " THEN D$(i6)=E# 


15335 IF LEN (d$(16:3:66 THEN PRINT : 


CHR$(7):GOTD 15318 


2YL£ 


3PM< 
FHN€ 
3FU< 


>ILé 


»Vg4 


15344 LOCATE 7,16 :PRINT"B: “iD$({1 FF: 
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} 
15354 LOCATE 16,19:GO0SUB 15000 


M0 
15369 IF B$>=" " THEN D$(11)=B$ OR 
15365 IF LEN (d$(11))>60 THEN PRINT >WX< 
CHR$(7):60T0 15346 
15370 LOCATE 7,11 :PRINT"9: ":D$(12 >MT4 
} 
15386 LOCATE 19,11:G0SUB 16040 RU“ 
15390 IF B$:=" “ THEN D$(12)=8B$ AAA 
15395 IF LEN (d$(12))>60 THEN PRINT DA‘ 
CHR$(7):G60T0 15376 
15469 LOCATE 7.12 :PRINT"19:":D$(13 >BLé 
} 
15416 LOCATE 19,12:G0SUB 16068 ?LM< 
15420 IF B$>=" " THEN D$(13)=B$ *PN€ 
15425 IF LEN (d$(13)}:66 THEN PRINT >RU 
CHR$(7):G60T0 15496 
15436 LOCATE 7,13 :FRINT"{1:":D$(14 >HP< 
} 
15446 LOCATE 19,13:G0SUE 16040 QG: 
15450 IF B$:=" " THEN D$(14)=B$ UR£ 
15455 IF LEN (d$#(14))>68 THEN PRINT :Zk< 
CHR$(7):G60T0 15436 
15469 LOCATE 7,14 :PRINT"i2:":D$ (15 >FT< 
} 
15476 LOCATE 19,14:G0SUB 16466 VUE 
15489 IF B$:=" " THEN D$(15)=E$ 2YVE 


15485 IF LEN (d$(15));60 THEN PRINT :G 


CHR$(7):60T0 15466 


15494 LOCATE 7,15 :PRINT"13:":D$(16 > 


} 
15500 LOCATE 14,15:G0SUB 1640û 
15519 IF B$:=" " THEN D$(16)=B$ 


15515 IF LEN (d$(16));60 THEN PRINT : 


CHR$(7):G0TO 15496 


15524 LOCATE 7,16 :FRINT"14:":D$ (17 


} 
15539 LOCATE 14,16:G0SUB 1604ù 
15549 IF B$>=" " THEN D$(17)=B$ 


el 
ge 


15545 IF LEN (d$(17)):64 THEN PRINT >CXi 


CHR$(7):G60T0 15520 


15950 LOCATE 7,17 :PRINT'S:":D# (18 à 


} 

15364 LOCATE 14,.17:G60SUE 16096 
15579 IF B$:=" " THEN D$(18)<E$ 
15575 IF LEN (d$(18)):60 THEN PRINT 
CHR$(7):G0TD 15554 


15586 LOCATE 7,18 : PRINT" 16: ":D# (19 à 


l 

15596 LOCATE 14,18:G0SUB 16064 
15606 IF B$:=" " THEN D#(19)=5$ 
15665 IF LEN (d$(19));60 THEN PRINT : 
CHR$(7):60T0 15589 


15616 LOCATE 7,19 :PRINT"17:":D# (20 TP 


} 
15628 LOCATE 14,19:G60SUB 16646 
15636 IF B$>=" " THEN D$(20)=B$ 


CHR$(7):G0T0 15614 


>XGé 
>OR< 
15675 IF LEN (d$(20))>66 THEN PRINT 


FWX€ 











15648 LOCATE 7,26 :FPRINT"18: ":D$ (21 : 


} 
15656 LOCATE 19,20:G0SUE 16466 


15668 IF B$:=" " THEN D$(21)=B$ 2 


15665 IF LEN (d$(211):66 THEN PRINT : 


CHR$(7):G0TO 1564 


15676 LOCATE 7,21. :PRINT"19:":D9 (22 


| . 
15689 LOCATE 19,21:G0SUB 16946 
15690 IF H$:=" " THEN D$(22)=5$ 


>1V< 


15695 IF LEN (d$(22))}>66 THEN PRINT >LD< 


CHR$(7):G0T0 15678 

15708 LOCATE 7,22 : PRINT "20: ":D$ (27 
} 

15719 LOCATE 19,22:G0SUB 16060 
15720 IF B$:=" " THEN D$(27)=E$ 
15725 IF LEN (d$(23)}>69 THEN PRINT : 
CHR$&(7):G0T0 15704 


15739 LOCATE 4,23:PRINT'REDUCTEUR D : 


E BRUIT: DOLEY / NA ‘:D$(2) 
15746 LOCATE 25,23: G60SUB 16409 
15754 IF E$i=" " THEN D$(2)=B4 
15764 LOCATE 

APPUYEZ SUR UNE TOUCHE ":CHR$ 124: 
15774 CALL SBBû6 
15784 GOTD 1466 
16466 LINE INFUT'", E$: RETURN 
92446 ‘TRAITEMENT D'ERREURS 
32005 ‘ 

26019 CLS:MODE 1:GOSUB 6816û 
92026 IF DERR=i44 THEN LOCAIE 5,10: . 
PRINT'NOM DU FICHIER INCORRECT":LOC 
ATE S,14:PRINT'MINI: 1 Caractere.“: 
LOCATE 5,16:PRINT'MAXI: 8 Caractere 
s." 


2036 IF DERR=146 THEN LOCATE 5,1%: :P 


PRINT'CE FICHIER NE SE TROUVE FAS': 
LOCATE.5,12:PRINT'SUR CETE DISQUET? 
E. Li) 


92046 IF DERR=147 THEN LOCATE 5,16: ; 


FRINT'CATALOGUE SATURE.FLUS DE 64 F 
ICHIERS. “:LOCATE 5, 12: PRINT "CHANGER 
DE DISQUETTE, " 


25,29: PRINT CHR$(24):" à 


PHP< 


92056 IF DERR=148 THEN LOCATE 5,14: :XN< 


FRINT'DISQUETTE PLEINE. ":LOCATE 5,1 
2:PRINT'CHANGER DE DISQUETTE. * 


52666 LOCATE 16,29:PRINT CHR$ (24) 3" DPF 


APPUYEZ SUR UNE TOUCHE": CHR# (24): CA 
LL &BB06:G0TO 1464 
2074 RESUME 1946 
60166 ‘___ TRACE DES CADRES 
64165 
66179 MOVE 5,5:DRAM 5,295, 
69186 DRAW 635,395 
69198 DRAW 635,5 
68268 DRAW 5,5 


68214 MOVE 7,7:DRA4 7,397, 3: DRAM 63 : 


1,595, 3: DRAN 635,7, 3:DRAM 7,7,3 












Jack CHAIGNEAU 


F 


BRAPEAUX ET 
CAPITALES 





Ce programme dessine les drapeaux de 60 nations. Il s'agit de donner le nom 
du pays, ainsi que la capitale correspondant au dessin. On fixe le nombre de 
drapeaux pour une manche (de 3 à 60) . Le programme ne prend en compte 
que les 4 premières lettres des noms, ce qui est généralement suffisant pour 

l'identification. Il comptabilise le nombre d'essais et de réponses exactes. 

Pour “donnez votre langue auchat" entrez la lettre "Z". Au début du jeu une 

option “révision” fera défiler tous les drapeaux en mémoire. Le programme est 

composé de deux fichiers : le premier est à sauvegarder sous le nom 
DRAPEAUX et le second sous le nom DRAPEAU 1. 


LISTING À 


S'HHHHHE DRAPEAUX HE 

19 MODE 1:DEG: INK 0,1: INK 2,20 
26 BORDER 1:PAPER 0:PEN 2 

30 ORIGIN 320, 200 

4ù FOR n=1 TO 100 

50 x=RND*440-320: y=RND#400-200 
bÔ IF (x"2+y"2)€12200 GOTO 80 
70 PLOT x,y,2 

80 NEXT 

9 MOVE 109,0 

100 FOR a=0 TO 360 STEP 5 

110 DRAW 1994005 (a), 1094SIN (a) 
120 NEXT 

130 ORIGIN 0,0 

140 FOR p=1 TO 9 

150 READ a,b,c:PLOT ab 


160 FOR n=1 TO c:READ x,y:DRAN x,y  ?NH< 
170 NEXT:NEXT 2XT< 
186 PLOT 215,186:DRAW 220,194: DRAW >KK< 
212,204 


196 ORIGIN 315,200: TAG NL 
200 FOR n=3 TO 25 ?FC< 
219 READ a$ >DD< 
220 x=n#360/26 JE 
230 MOVE COS (x) #260, SIN(x) #140 DMF< 
240 PRINT a$; >UG< 
250 NEXT:TAGOFF >BH< 
260 FOR n=i TO 3000: NEXT )VJ< 


270 LOCATE 27,24:PRINT "Chargement, >JK< 
280 RUN “'drapeaul >UL< 
290 DATA 389,281,60,377,271,370,277 }LM< 
,379,283, 358, 293, 339, 269,339,259,3 

3, 264,351,256,558,276,361,263 

300 DATA 371,263,359,251,350,251,34 >ZD< 
9,298, 342,249,330,243,329,240,334,2 
37,334,233,331,230 


319 DATA 324,234,321,222,229,218,33 DME 
8,229, 346, 233,350, 221,354, 221, 352, 2 
33,368, 216,374,231 

320 DATA 383,231, 388, 221,373, 219,37 >XF< 
1,214,383, 213,376, 200, 340, 203, 349,2 

19, 348, 215, 326, 212 

330 DATA 312, 201,306, 185,319, 171,33 >CG< 
8,164,343, 144,336, 134,339, 107,350, 1 
06,376, 126, 380, 142 

340 DATA 400, 162,387, 167,376, 194,39 DEH{ 
2,170,413,177,398, 196,401, 198, 407, 1 
88,410, 190,426, 185 | 

350 DATA 334,246, 4,333, 262, 530,262, DYIX 
328, 244,336, 246, 319, 244, 4,320, 254,3 
24,295, 324,247,319, 244, 403, 229,3,39 
7,224, 403, 212, 403, 229 

360 DATA 319,278,3,305, 282, 312,275, >LK< 
319,278, 304, 308, 4,302, 288, 289, 284, 2 
79,270, 268, 292 

370 DATA 251, 284,8, 250, 270, 258,274, >TL< 
262,259, 249, 255, 258, 249, 230, 237,228 
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,227,218, 236 

369 DATA 215,229, 9, 221,265 
231,201, 260, 185, 259, 179, 276 
146,254, 146, 238, 130 

390 DATA 238, 214,4, 234, 210,2 
228, 229, 238, 214 


223,199, 
.162,262 


26,218, 


490 DATA LULAESFARD,, ETC, KE 


A,F,IT,AL,E,S 


>RM£ 


AL 





SD HHHNHNN DRAPEAUX ET +444 
ED HHMEHHBHEE CAPITALES #46 
79  INE G,1:INE 1,21INE Z, 26: IE 3, 
GsINE 4,0: INE S,24:INE 6,19:INE 7,1 
I 

89 MODE 1:PFAFER G:PEN 2 

96 B=340:G60SUE 636û 

196 LOCATE 9,7:FRINT"Bonjour !" 

114 LOCATE 3,9:FRINT'Ce programme v 
a tester vos connaissancesconcernan 
t les drapeaux et les capitalesde q 
uelques nations." 

124 FOR n=1 TD 2506: NEXT: PRINT CHR$ 
{7} 


136 LOCATE 1,15:PRINT'"Avant de comm : 


encer,peut-etre voulez-voustaire un 
e petite revision *" 


de la reponse." 


288 FOR n=i TO 2640:NEXT: PRINT CHR$ } 


(7) 


279 LOCATE 2,12:PRINT"-5i vous ne t ? 


rouvez pas :" 
288 PRINT 
290 PRINT“ 

la solution." 
300 FOR n=i TO 2904: NEXT:PRINT CHR$ 
(7) 


entrez 


22 


1 pour avoir * 


YIF4 
>QG 
> TH 


FYJÉ 


>XK< 
AB 
AC 


Se 


?KD< 


ea 





QD: 





316 FRINT: PRINT 
328 PRINT" -Four changer de page :" 


336 PRINT: PRINT" 
touche quelconque. " 
349 FOR n=i TO 2960: NEXT:FRINT CHR$ 
{7} 
390 LOCATE 36,23:PRINT" " 
364 LOCATE 2,23: INPUT "-Combien de 
drapeaux (de 3 a 66} "inbre 
376 IF nbre<3 OR nbre:6û THEN GOTO 
354 
388 noni=ë:non2=8:ouii=6:oui2=8 
396 GOTO 419 
498 choix=1:nbre=éë 
419 MODE 6:FEN 2 
29 
436 ‘xxx CHOIX DES DRAPEAUX ###4 
444 CLS:Fas=51+6*INT (RND#4) 
458 DR=INT (RND#6û+1 ) : Po=i:ND=1 
460 GOSUB 748ÿ 
470 WINDOW #3,H31,432, se 
48 FEN #3, 2: PAPER #3, 
499 PRINT #3, ND: PRINT ab 
999 IF DR:64 THEN DR=DR-66 
910 IF DR:36 G0TO 549 


appuyez sur une 


920 ON DR GOSUB 616,670,726,810,966 > 


.980,1949,1160,1169,1289,1346, 1406, 
1490,19550,1619,1719,1810,1940,2000, 
2079,2130,2190,2270,2350,2440,2516, 
2589, 2650, 2760, 2870 

930 GOTO 566 


| 540 DR=DR-36 


149 PRINT 2UF< | 556 ON DR GOSUB 2939,3400, 3060, 3120 
159 FOR n=i TO 1506: NEXT: PRINT CHR$ :TG< | ,3310,3460,3520, 3660, 3750, 3846, 3970 
(7) ,4036,4110,4180,4280, 4379, 4480, 456û 
16ÿ FRINT 2WH£ | ,4666,4780,4850, 4960, 5020, 516û,5290 
178 PRINT" - Tapez Ô pour o PJX | ,5566,5726,5840, 5910, 6640: DR=DR+30 
ui" 566 Fo=Po+i:ND=ND+1 

189 PRINT" = N pour n ?G£ | 579 IF NDènbre THEN G0TO 7806 

on" 960 IF Po:é THEN GOSUE 6589 

199 a$=UPPERS(INÉEYS) 2HL£ | 590 DR=DR+Pas:GOTO 469 

260 IF a$<>"0" AND a$<"N" THEN 198 SUC£ | 606 ‘ 

16 HF RANCERHHHHER 

210 IF a$="O" THEN GOTO 49ÿ ?6D< | 629 g$="FRAN":capi$="Fari" 

229 CLS:choix=0:B=340:G0SUB 6359  2?VE£ | 630 GOSUB 7470 
‘236 LOCATE Z,7:FRINT"-Lorsqu'une qu ?LF< | 640 Ci=1:C2=2:C3=3:G60SUB 6274 
estion apparait, entrez" 650 GOSUB 6226:G0SUB 7139:RETURN 
249 PRINT 2VG< | 668 

259 FRINT" les 4 premieres lettres :BH£ | 670 ‘  ######4CTHIOPIE####4#4 


680 q$="ETHI":capi$="Addi" 

699 GOSUB 7479 

700 C1=3:C2=5:C3=6: G0SUB 6486 
716 GOSUB 6220:60SUB 7139:RETURN 
720 ‘ 

20 HHHPHSOUDANHEHHHHE 
740 g$="SOUD":capi$="Khar" 

750 GOSUE 7478 

78b C1=4:C2=2:C3=3: G0SUB 6484 
770 FOR Y=B TO B+80 STEP 2 


ME 


780 PLOT At6ÿ,B+49,6:DRAW À, Y:NEXT 


?0F< | 790 GOSUB 6220:60SUB 71360:RETURN 


?BG€ 


2PH< 


>IIé 
TK 


+ | 930 Ci=b:C2= 


806 ‘ 

810 ‘tt GOMAL I EH 

820 q$="SOMA":cap1$="Moga" 

836 GOSUB 7470 

846 ci=i:c2=i:c3=1:c4=2:60SUB 6270 
896 GOSUB 6700:PLOT A+b4,B+46,2 

8é6 PLOT At64,B+48:PLOT A+52,E+46 
879 FLOT A+44,B+46,1:PLOT +66, B+56 


886 GOSUB 6220:G0SUB 7130:RETURN 


€ | 890 : 


908 ” 


4 [910 gé="GANB":cap1$="Ean jt 


926 GOSUB 7474 
2:C3=3:GOSUB 6486 


949 FOR Y=B+31 TO B+48 STEP à 

959 PLOT A,Y,1:DRAW A+129, Y:NEXT 
960 GOSUB 6220:GO0SUB 7130:RETURN 
978 

980 ‘  HHHHHBELGIQUE#H###HHH4 
990 g$="BELG":cap1$="Brux" 

1596 GOSUB 7476 

1919 Ci=4:C2=5:C3=3: 60SUB 6270 
1926 GOSUE 6220:G0SUB 7139:RETURN 
1936 

1046 ‘#6 AUTRICHE#HEHHEE 
1956 g$="AUTR":capi$="Vien" 

1966 GOSUE 7470 

1979 ci=3:c2=2:c3=3:60SUB 649ù 
1986 GOSUB 6226: 60SUB 7134:RETURN 
1698 

1100  HHHHHHNEITALIE#HHHHHHH 
1119 g$="ITAL":capi$="Rome" 

1126 GOSUB 7476 

1130 Ci=6:C2=2:C3=3:6G0SUB 6270 
1145 GOSUB 6220:60SUB 7139:RETURN 
1158 

1160 HHHSUT SGEN 
1179 g$="SUIS":capi$="Bern" 

1186 GOSUE 7470 

1199 Ci=3:C2=3:C3-3:GOSUB 6270 


«| 1206 FOR X=54 TO 66 STEP 4 


1219 PLOT A+k,B+13,2:DRAW A+X,B+67 
1226 NEXT 

1230 FÜR Y=34 TO 46 STEP 2 

1246 PLOT A+31,Y+B,2:DRAW A+69,Y+B 
1256 NEXT 

1266 GOSUB 6220: G0SUB 7130:RETURN 
1270 ‘ 

1280 ‘ HHHHHHHINIGERIANHHEEHH 
1290 g$="NIGE":capi$="Abuj" 

1300 GOSUB 7470 

1319 Ci=6:C2=2:C3=6:60SUB 6270 
1326 GOSUB 6220:G0SUB 7130:RETURN 
1330 ‘ 

1340 ‘ HHHHH#HALLEMAGNENHHEHHEE 
1350 g$="ALLE":capi$="Bonn" 


JUR< 
FXT£ 
FHJ< 
:GK< 
FYL£ 
?PM£ 
>EN< 
>MP< 
?FQ< 
?DR< 


?ÂTÉ 
TUK 
Te 


3FEX 
3LF£ 
16 
2MH€ 
PYJ< 
2RKÈ 
?ML£ 
?DC* 
?CD£ 
HJEX 
3VF< 
?NG< 
?JH< 
?1J< 
31K£ 
QL< 
?1M 
:JD< 
?PE< 
3LF< 
?66< 
+ ZH< 
PJ 
?RK< 
?ML< 
>12M< 
?LN€ 
JE 
?YF£ 
>NG 
?JH 
?BJ 
>PK< 


1366 GOSUB 7470 
1370 C1=5:C2=3:C3=4: GOSUB 6480 


1380 GOSUB 6220:60SUB 7136:RETURN 
1390 ‘ 

1406 ‘ ####KEMIRATS ARABES###4 
1410 UNIS 


1429 g$="EMIR":capi$="Abou" 

1430 GOSUB 7479 

1446 Ci=4:C2=2:C3=6: G0SUB 6480 
1459 FOR X=A TO A+49 STEP 2 

1468 PLOT X,B,3:DRAN X,B+B0:NEXT 
1479 GOSUB 4220: G0SUB 7130:RETURN 
1488 

1490‘ HHHHHGABONHEHENHEE 
1509 g$="GABO":capi$="Libr" 

1519 GOSUB 7470 

1529 Ci=1:C2=5:C3=6: GOSUB 6480 
1530 GOSUB 6226:G60SUB 7130:RETURN 
1548 ‘ 

1559 ‘HA HHEMAL LNH 
1566 g$="MALI":cap1$="Bama" 

1579 GOSUB 7470 

1586 Ci=b:C2=5:C3=3: GOSUB 6279 
1596 GOSUB 6226:60SUB 7139:RETURN 
1600 

1010 ‘ HHRHEHEKOMEITEREEREEES 
1626 g$="KOKE":capi$="Kkowe" 

1639 GOSUB 747à 

1649 Ci=3:C2=2:C7=6: GOSUB 6480 
1656 FOR Y=B TO B+Bà STEP 2 

1668 PLOT A+69,E+46,4: DRAW A, Y:NEX 
T 

1679 FOR Y=B+27 TO B+54 STEP 2 
1688 FLOT A+44,Y,2:DRAW A+120,Y:NEX 
T 

1699 GOSUB 6224:G0SUB 7136:RETURN 
1706 * 

1710 ‘#4 DJ IBOUT LH 
1729 g$="DJIB":capi$="Djib" 

1730 GOSUB 7476 

1744 Ci=b:C2=1:C3=0: GOSUB 6486 
1750 FOR Y=B TO B+80 STEF 2 

1764 PLOT A+60,B+40,2:DRAW A, Y:NEXT 


1770 q=A+26:r=B+40:cb=3 

1780 GOSUE 6850 

1790 GOSUB 6226:G0SUB 7130:RETURN 
1800 ‘ 

1810 ‘HN IBERT AH 
1826 g$="LIBE":capi$="Monr" 

1836 GOSUB 7476 

1849 ci=2:c2=2:c3=2:60SUB 648û 
1859 FOR p=6 TO 72 STEP 16 

186 FOR y=p TO p+té STEP 2 

1874 PLOT A,B+y,3:DRAW A+120,B+y 
188% NEXT:NEXT 

1899 FOR y=49 TO 86 


3JH£ 
PJ 
>AK« 
>QL< 
?EM< 
>PN 
>UP< 


>DQ< 
?XR€ 


?ITK 
2KJ< 
AK& 
2NL< 
RMÉ 
BN€ 
?@P< 
?TQ£ 


>XRC 


NT< 
AUX 
?LK< 
?LL< 
>FW< 
>TN€ 
>BP< 


1964 PLOT A,B+y,1:DRAW A+44,B+y:NEX HULX 


ï 





1910 q=A+24:r=B+b0:c6=2:60SUB 6850 
1929 GOSUB 6226:G60SUB 7130:RETURN 
1930 ‘ 

1940 ‘  HHHHHHMHPOLOGNE HE 
1950 g$="POLO":capi$=" Vars" 

1960 GOSUB 7479 

1979 Ci=3:C2=2:C3=0:GOSUB 6486 
1989 GOSUB 6226:G60SUB 7139:RETURN 
1996 

2000 ‘HAE TAPONEHHHHEE 
2016 g$="JAPO":capi$="Toky" 

2029 G60SUB 7476 

2036 ci=2:c2=2:c3=2:G0SUB 6480 
2646 couleur=3:G0SUB 699% 

2656 GOSUB 6229: G0SUB 7136:RETURN 
2066 

2070 ‘ HHHHHEHHONGRIERHHHHH 
2080 g$="HONG":capi$="Buda" 

2696 GOSUB 747ÿ 

2100 ci=b:c2=2:c3=3:60SUB 6480 


2116 GOSUB 6220:G0SUB 7139:RETURN 
2120 ‘ 
2130 HEHEHHHETOHADIHHEHHNE 


2149 g$="TCHA":cap1$="Ndja" 

2150 GOSUB 7479 

2160 ci=i:c2=5:c3=3:G6OSUE 6279 
2170 GOSUB 6229:G0SUB 7130:RETURN 
2180 ‘ 

2190‘ HÉHHHHHESPAGNEHEHHHEE 
2206 g$="ESPA":capi$="Madr" 

2216 GOSUB 7474 

2224 ci=3:c2=3:c3=3:GOSUB 6484 
2236 FOR y=20 TO 6ô STEP 2 


2246 PLOT A,y+B,5:DRAW +129, y+B:NE > 


XT 

2250 GOSUE 62 
2268 

2270 ‘  #####TCHECOSLOVAQUIE*#### 
2280 g$="TCHE":capi$="Pran" 

2290 GOSUB 7479 

2306 C1=3:C2=2:C3=0:GOSUB 6480 
2314 FOR Y=B TO B+80 STEP 2 


26:G0GUB 7136:RETURN 


2320 PLOT A+60,B+40,1: DRAW A, Y:NEX : 


T 

2336 GOSUB 6226: G0SUB 7136:RETURN 
2349 ‘ 

2250 ‘HV IET-NAMIPHHHHEE 
2360 g$="VIET":cap1$="Hano" 

2376 GOSUB 7479 

2380 ci=:c2=3:c3-3:c4=5:60SUB 6486 


2390 GOSUB 6700:PLOT A+84,B+4b,3 
2409 PLOT A+64,B+48:PLOT A+52,8+46 
2410 PLOT A+44,B+46,3 


2426 GOSUB 6229:G60SUB 7136: RETURN 
2430 ‘ 
2440 ‘HR HIDANEMARE HE 


2456 g$="DANE ": cap1$="Cope" 
2460 GOSUB 747ù 


>BM< 
NN 
?QP< 
>WQ< 
?TR€ 
2XT 
EUX 
?BV< 
?XW< 
?EC< 
ID 
2 JE* 
?TF< 
TG 
?PH< 
KT 
?6K< 
ML 
2RM< 
WD< 
DLE* 
?6F< 
MG< 


#QJ< 
?LK< 
?QL< 
2MM< 
?TN€ 
>WP< 


>UQ< 
16 
?DH< 
#QJ< 
?LK< 
?XL< 
>DM< 
>TN< 





2470 ci=3:c2=3:c3=3:GOSUB 6480 
2480 c3=2:GOSUB 6790 
2490 GOSUB 6226:G0SUB 7130:RETURN 
2500 ‘ 
2510 ‘ HHHHHHHMSUEDERHHHEHE 
2526 g$="SUED":capi$="Stoc" 
2530 GOSUB 7470 
2549 ci=i:c2=1:c3=1:60SUB 6480 
2556 c5=5:60SUB 6796 
2560 GOSUB 6220: G0SUB 7130:RETURN 
2578 
2580 ‘HN INLANDERHHHHHEX 
2590 g$="FINL":capi$="Hels" 
2689 GOSUB 7476 
2619 ci=2:c2=2:c3=2: 
2620 c5=1:60SUB 6790 
2636 GOSUB 6229:G0SUB 7136:RETURN 
2649 
2650‘ HHHHHHHNORVEGERHEHENHE 
2666 g$="NORV":capi$="Oslo" 
2670 GOSUB 747à 
2689 ci=3:c2=3:c3=3:60SUB 6486 
2696 c5=2:G60SUB 6794 
2700 FOR y=B+36 TO B+43 STEP 2 
2716 FLOT AÀ,y,1:DRAW A+i20,y:NEXT 
2726 FOR x=A+41 TO A+47 STEP 2 
2736 PLOT x,B:DRAW x, B+BG:NEXT 
274% GOSUE 6226: G0SUB 71:36:RETURN 
2756 ‘ 
2760 ‘HIHI ISLANDERHEHHHHEE 
27170 g$="ISLA":capi$="Reyk" 
2780 GOSUB 7470 
2790 ci=i:c2=1:c3=1:GOSUB 6488 
2806 c5=2:G0SUE 6798 
2816 FOR y=B+36 TO B+43 STEP 2 

24 PLOT À,y,3:DRAW A+129, y: NEXT 
2830 FOR x=A+41 TD A+47 STEP 2 
284% PLOT x,B:DRAW x, +80: NEXT 
2856 GOSUB 6226: G60SUB 7134:RETURN 
2860 
2870 ‘ HHHHHAGUATEMALANHEHEHEEE 
2889 g$="GUAT":capi$="Guat" 
2896 GOSUE 747ÿ 
2900 ci=l:c2=2:c3=1:G60SUB 6270 
2916 GOSUE 6226: 60SUB 7130:RETURN 
2920 ‘ 
20930 ‘HAE GHANAHEHE 
2949 g$="GHAN":capi$="Accr" 
2956 GOSUB 7479 
2969 ci=b:c2=5:c3=3:GOSUB 6499 
2976 q=Atbô:r=B+38:cb=4:GOSUB 6840 
2986 GOSUB 6226:60SUB 7138: RETURN 
299 ‘ 
3009 ‘ #####4C0TE D'IVOIRE##+### 
3916 q$="COTE":capi$="Yamo" 
3029 GOSUB 7476 
3036 ci=7:c2=2:c3=6: B0SUB 6270 
3649 GOSUB 6220:G0SUB 7136:RETURN 
3050 ‘ 


GOSUB 6480 


?PU< 
?QV< 
CW< 
2YX< 
?AD< 
?HE< 
?KF< 
AG< 
>PH< 
2KJ< 
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3060 ‘ HIHI IRLANDE HR 
3070 g$="IRLA":capi$="Dubl" 

3080 GOSUB 7470 

3090 ci=b:c2=2:c3=7:GDSUB 6270 

3190 GOSUB 6220: G0SUB 7130:RETURN 
3119 

3120 ‘ HHHHHHHETATS-UNISHHHEEE 
3130 q$="ETAT":h$="AMER": 1$="USA" 
3140 cap1$="Hash":GOSUB 7470 

3150 FOR Y=B TO B+80 STEP 2 

3160 PLOT AÀ,Y,3:DRAW A+120, Y:NEXT 
3170 FOR P=1 TD ii STEP 2 

3160 FOR Y=B+2+b#P TO B+b*(P+i) STE 
P2 

3190 PLOT A,Y,2:DRAW A+120,Y:NEXT:N 
EXT 

3200 FOR Y=B+38 TO B+89 STEP 2 
3210 PLOT A,Y,1:DRAW A+52,Y:NEXT 
3220 FOR Y=0 TO 32 STEP 8 

3230 FOR X=9 TO 46 STEP 8 

3240 PLOT A+10+X,B+42+4Y,2:NEXT:NEXT 


3250 FOR Y=0 TO 24 STEF 8 
3260 FOR X=0 TO 32 STEP 8 
3276 PLOT A+14+X,B+4b+Y,2:NEXT:NEXT 


3280 GOSUB 6220:G0SUB 7136 

3299 h$= "44" à $= HE: RETURN 
3300 ‘ 

3210 ‘HER MNANDANHHEHEEE 
3320 g$="RWAN":h$="RUAN":capi$="kig 
a" 

3339 GOSUB 7470 

3540 ci=3:c2=5:c3=6:G0SUB 6270 
3350 PLOT A+59,B+29,4:DRAW A+50,B+6 
() 

3369 FLOT A+50,B+62:DRAW A+63,B+02 
3370 PLOT A+50,B+64:DRAW A+63,B+é4 
3389 PLOT A+b4,B+60:DRAW A+64,B+46 
3390 PLOT A+50,B+44:DRAW A+63,B+44 
340 PLOT A+59,B+42:DRAW A+63,B+42 
3419 PLOT A+60,B+42:DRAW A+64,B+30 


3429 PLOT A+64,B+30:DRAW A+68,B+20 
3436 GOSUB 6220:GO0SUB 7130:h$="###* 
3446 RETURN 

3459 ‘ 

A6 ‘HE I BYE HE 
3470 g$="LIBY":capi$="Trip" 

3480 GOSUB 7479 

3490 ci=b:c2=b:c3=6:60SUB 8486 


3506 GOSUB 46220:G60SUB 7136:RETURN 
3519 ‘ 

3520 ‘ HR SUR NAME 
3930 g$="SURI":capi$="Para" 

3549 GOSUB 7476 

39950 ci=b:c2=b:c3=6:GOSUB 46480 


24 


? TK 
VE 
?RM< 
?6N< 
?LE< 
?6F< 
>LG< 
QH< 
AN 
?LK< 
>HL< 
?KM< 
?WN& 


?\P< 


?VF< 
>DG< 
>? IHK 
NIK 
?YK< 


?DL< 
CM 
?KN< 


?LP< 
?DQ< 
>HG< 
PH< 
>FJ< 


3PK& 
>DL< 
?TM< 


?CN€ 
>HP< 
?LOK 
?FR< 
?TH< 
?TJÉ 


2YK< 
?LL< 


3 TM 
>PN€ 
>TPé 
:J0< 
FWR< 
?TT£ 


AJ 
?LK< 
>HL< 
>XM< 
?TN€ 
PP 


3560 FOR y=16 TO 64 STEP 2 > 
3570 PLOT A,B+y,2:DRAN A+120,B+y:NE >ZR£ 
XT 

3580 FOR y=24 TO 56 STEP 2 TT 
3590 PLOT A,B+y,3:DRAW 4+120,B+y:NE >CUX 
XT 

3600 c4=5:B=B-2:G0SUB 6700 >EKK 
3610 PLOT A+64,B+46 >FL4 
3626 PLOT A+64,B+48:PLOT A452,B+46 EM 
3630 PLOT A+44,B+46, 3:PLOT A+60,B+5 >ENC 
6 

3640 B=B+2:G0SUB 6220:G0SUB 7130:RE >VP< 


TURN 

3654 ‘ ?REK 
3660‘ HHRHHHHCHIL LH >GR€ 
3670 g$="CHIL":capi$="Sant" 2IT 
3686 GOSUB 7470 >YUK 
3699 C1=3:C2=2:C3=0:G0SUB 6480 >FWK 
3709 FOR y=46 TO 80 STEP 2 ?FL< 


3710 PLOT A,B+y, 1:DRAM A+47,B+y:NEX DAME 


T 


3720 q=At2b:r=B+b0:cb=2:60SUB 4910 >BN< 
3730 GOSUB 6220:GO0SUB 7130:RETURN  >WF< 
3740 ‘ >RQ€ 
3750 ‘ +#HHHHMADAGASCARE#EE #44 ?FR< 
3760 g$="MADA":capi$="Anta" JAT< 
3770 GOSUB 7470 ?YUK 
3780 Ci=b:C2=3:C3=0:GOSUB 6480 ?KV£ 
3790 FOR x=0 TO 40 STEP 3 ?EW< 


3809 PLOT A+x,B,2:DRAW Atx,B+B0:NEX 
T 


2WM 


3819 GOSUB 6220:G0SUB 7130:RETURN  >VN< 
3820 ‘ >0P< 
2830 ‘ HHHHHEECUBARHHHHERHRHRHE >WQ< 
3846 g$="CUBA":capi$="LaHa":cap2$=" ;BR< 
La h" 

3850 GOSUB 7470 PÂTE 
3866 ci=i:c2=i:c3=1:GOSUB 6480 ?CU< 
3876 FOR p=18 T0 59 STEP 32 FMVE 
3889 FOR y=p TO p+14 STEP 2 INK 
3898 PLOT A,B+y,2:DRAWN A+129,B+y  >UX< 
3900 NEXT:NEXT ?DN< 
3916 FOR Y=B TO B+80 STEP 2 >QP< 


3920 PLOT A+69,B+40,3:DRAW A, Y:NEXT >UQ< 


3930 r=B+40:q=A+26: cb=2 DURE 
3940 GOSUB 6859 PYT< 
3956 GOSUB 6220:60SUB 7136:RETURN  >AUX 
3960 ‘ >< 
3970 ‘ #####GIERRA-LEONE##H### ?IK 
3980 g$="SIER":capi$="Free" >MX< 
3990 GOSUB 7470 >CY< 
4000 ci=i:c2=2:c3=6:GOSUB 6480 DVE< 
4919 GOSUB 6220:G0SUB 7130:RETURN  >MF< 
4020 >HG< 
4030‘ ##HHR VENEZUELA >IH< 
4040 g$="VENE":capi$="Cara" GI 
4950 GOSUB 7470 2PK< 
4960 ci=3:c2=1:c3-5:GO0SUB 6480 ?BL< 





4070 DEG:FOR m=15 TO 165 STEP 25 
4080 PLOT A+h1+20#C05 (m) ,B+27+202S1 
Nm) ,2:NEXT 


> IM< 
>KN< 


4090 GOSUB 6220:60SUB 7130:RETURN  >WP< 
4100 )GF< 
ALLO ‘ HHHHEHHBEN IN >RGK 
4120 g$="BENI":capi$="Port" ?NH< 
4130 GOSUB 7470 >NJ< 
4140 ci=b:c2=b:c3=6:GOSUB 6480 >KK€ 
4150 q=A+25:r=B+60:cb=3:GOSUB 6840 >BL< 
4160 GOSUB 6229: G0SUB 7130:RETURN  >UM< 
4170 ‘ ?PN€ 
4180 ‘ HHHHIHHHATHAILANDERHHEHEE >CP< 
4190 g$="THAl":capi$="Bang" >FQ< 
4200 GOSUB 7479 ?LGÉ 
4219 ci=2:c2=1:c3-2:605UB 6480 ?UH< 
4226 FOR y=0 TO 13 STEF 2 ?TJ< 


4230 PLOT A,E+y,3:DRAW A+120,B+y:NE >UK< 
\T 
4249 FOR y=67 TO 86 STEP 2 QL< 
4250 PLOT A,B+y,3:DRAW A+120,B+y:NE ?WM< 
XT 


4266 GOSUB 6220:60SUB 7130:RETURN  >VN 
4270 ‘ >QF< 
4280 ‘HAL ADS HE >EQX 
4290 g$="LAOS":capi$="Vien" ?VR€ 
4300 GOSUB 7470 MH 
4319 ci=3:c2=3:c3=3:G0SUB 6270 EURE 
4320 FOR y=25 TO 58 STEP 2 ?LK£ 


4330 PLOT A,B+y,1:DRAW A+129,B+y:NE >TL< 
\T 
4349 B=B-2:couleur=2:G0SUB 6990:B=B :>XM< 
+2 


4250 GOSUB 6220: G0SUB 7130:RETURN  >VNK 
4360 ” +QP< 
4370 ‘ HHHHHMPFHONDURAGHEENHHE 270 
4586 q$="HOND":capi$="Tequ" )RR€ 
4399 GOSUB 7470 >XT< 
4400 ci=i:c2=2:c3=1:ch=1:G0SUB 6480 >HJ< 
4416 q=Atbb:r=B+38:G0SUB 6920 2ME< 
4420 q=A+44:r=B+44:G0SUB 6924 >ML£ 
4436 q=A+44:r=B+32:60SUB 6720 >KM€ 
4440 q=At/b:r=B+44:GOSUB 6972û ?VN€ 
4459 q=At7b:r=B+32:60SUB 6920 ?TP< 
4460 GOSUB 6220:60SUB 7130:RETURN  >XK 
4470 ‘ ?TR< 
4480 ‘ HS YRIERHHEHHHER >MT< 
4490 g$="SYRI":cap1$="Dama" >PU< 
4599 GOSUB 7478 ?PK< 
4510 ci=4:c2=2:c3=3:G0SUB 6480 ?BL< 
4520 q=A+40:r=B+38:cb=b: GOSUB 6916 >FM< 
4539 q=At80:r=B+38: GOSUB 6919 >RNE 
4540 GOSUB 6220:60SUB 7130:RETURN  >WP< 
4550 ‘ RQ 
4560 ‘HE RACE )DR< 


4570 g$="IRAQ":h$="IRAK":capi$="Bag >HT< 
d" 


4589 GOSUB 7470 YU 
4590 ci=4:c2=2:c3=3:G0SUB 6406 2KVE 
4600 q=A+28:r=B+38:ch=6:GOSUR 6919 >LL< 
4610 q=Atéb:r=B+38: GOSUE 6918 :NM£ 
462 q=A+93:r=B+38: GOSUB 6914 HN< 


4630 GOSUB 6226:G60SUB 7139 >LP< 
4648 h$= "#44": RETURN 510€ 
4650 ” >TR< 
AD HHMPPANIGEREEEHEHHEE 3MT< 
4676 q$="NIGE":capi$="Niam" :VU< 
4686 GOSUB 7479 z1V6 
469 ci=b:c2=2:c3=7:GOSUB 6488 ?TH< 
4706 DEG:FOR u=6 TO 36 STEP 8 2VM< 


4710 PLOT A+64,B+38,7 FRNE 
4720 DRAM A+64+104C05 (u) ,B+3B+104SI >EP< 
Nu) 


4730 NEXT WQ< 
4740 PLOT À+52,B+44 :PLOT À+52,B+35 HR 
7 


4750 PLOT A+56,B+28,2:FLOT Â+68,B+2 


AUT< 
B 
4760 GOSUE 6220: G0SUB 71S6:RETURN  >AU< 
4770 #WV£ 
4780 ‘ ###H#BURKINA-FASSO####4x BW 
4790 g$="BURK":capi$="Quag" 3IX< 


4800 GOSUB 7479 TN£ 
EP 
>E0U< 
?YR 
PUT< 
#MU£ 


4819 Ci=6:C2=3:C3=0:GOSUB 6486 
4820 q=A+60:r=B+46:c6=5: GOSUE 6840 
4930 GOSUB 6226:G0SUB 7136:RETURN 
4849 

4850 ‘ HHHEHCOLOMBIERHHEEX 


4869 g#="COLO":capié="Bonc" AS 
4879 GOSUB 7470 AW 
4889 FOR y=4 TO 49 STEP 2 FX 
4890 PLOT A,B+Y,1:DRAW A+120,B+Y:NE EV< 
XT 

4909 FOR y=42 TO 86 STEP 2 ?LP< 
4916 PLOT A,B+y,5:DRAW A+129,B+y:NE EQ< 
XT 

4926 FOR y=6 TO 22 STEF 2 ARE 
4939 PLOT A,B+y,3:DRAW A+120,B+y:NE >BT< 
XT 

4940 GOSUB 6220:G0SUB 7139:RETURN  >AUX 
4950 ‘ PWVE 
4960‘ HHHHHEHAGUINEE HER >CH< 
4976 g$="GUIN":capi$="Cona" ?LKE 
4989 GOSUE 7470 #CY< 
4996 ci=3:c2=5:c3=6:GOSUB 6276 PRIE 
5090 GOSUB 6220:60SUB 7130:RETURN  >MF< 
5919 ‘ >HG< 
5020 ‘HE JAMATQUE #3 ?EH< 
9030 g$="JAMA":cap1$="King" >DJ< 
5040 GOSUB 7470 PE 


9050 ci=5:c2=5:c3=5:60SUB 6270 ?EL< 
3069 FOR y=B+3 TO B+79 STEP 2 2BM< 
9070 PLOT A+51,B+39,4:DRAN A,y:NEXT EN: 


>DP< 
>60< 


5680 FOR y=8+5 TO B+79 STEP 2 
5090 PLOT A+73,B+41,4:DRAW A+120, y: 











NEXT 

9106 FOR x=A+15 TD +195 STEP 2 MG 
9116 PLOT A+60,8+47,6:DRAW x, B+BD:N : 
EXT 

9129 FOR x=A+195 TO A+i11 STEF 2 ALT 


5136 FLOT A+60,B+33, 6:DRAW x,B:NEXT >UK< 
5149 GOSUB 6220:60SUB 7130:RETURN  >TLé 
5156 ‘ NM 
SL60  HAHHRTOGORHHMEHE >{N£ 
5170 g$="T060":capl$="Lome" »YP4 
518 GOSUB 7470 VOX 
519% ci=é:c2=6:c3=6:60SUB 6276 #NRE 
5200 FOR p=18 TO 54 STEP 32 HE 
5216 FOR y=p T0 p+14 STEP 2 MIS 
5226 PLOT A,B+y,S:DRAN A+120,B+y  ?LK£ 
5236 NEXT:NEXT BL 
5249 FOR y=34 TO 8û STEP 2 >kM< 


9296 PLOT À,B+y,3:DRAW A+54,B+y:NEX >BN: 
T 


2266 q=A+20:r=B+57:c6=2: GOSUE 6840 >PP< 
13270 GOSUB 6225:60SUB 7130:RETURN  >X0 
3288 ‘ ?TR< 
0290 ‘ HHHHAGRANDE-BRETAGNE###H# ET 
3300 qg$="GRAN":h$="ANGL":capi$="Lon >KJ< 
d" 

2316 GOSUB 7474 3PK< 

320 ci=3:c2=3:c3=3:GOSUE 6276 ?YL£ 
J330 FOR y=B+5 TO E+79 STEP 2 ?EM£ 


5349 PLOT 4+55,H+41, 1:DRAW A, v:NEXT >VNC 


3350 FOR y=B+5 TO B+79 STEF 2 DPF 
9360 PLOT A+69,B+41:DRAW A+120,y:NE >HO< 
X\T 


5370 FOR x=4+15 TO 4+109 STEP 2  >BR€ 
5380 FLOT A+60,B+47: DRAM x, B+B0:NEX DKT< 
T 

5396 FOR x=A+15 TO Ati STEP 2 Ut 
5490 PLOT A+40,B+35:DRAM x,B&NEXT  >PK& 
5419 PLOT A+11,B,2:DRAW A+126,B4+79 >UL 
5420 PLOT A,B+2:DRAW A+115,B+80  >LMé 
5430 FLOT A,B+78:DRAN A+115,B >UN< 
5440 PLOT A+11,B+80:DRAM A+120,B4+2  >MP< 
5450 FOR x=54 TO 68 STEP 14 > 
5460 PLOT Atx,B,2:DRAM Atx,B#B0:NEX >AR4 
T 

5476 FOR y=36 TO 44 STEP 2 TT 
5480 PLOT A,B+y,3:DRAW A+120,B+y:NE >CU 
XT 

5490 FOR y=34 TO 46 STEP 12 WE 
5506 PLOT A,B+y,2:DRAN A+129, B+y2NE DULX 
XT 

5510 FOR x=56 TO 64 STEP 4 > TK 
5526 PLOT Atx,B,3:DRAW A+x, B+B0:NEX >YN< 


T 


3330 GOSUB 6229:G0SUB 7134:h$="###4 >PP< 
99449 RETURN WQ< 
9990 ‘ 2TR€ 











99600 ‘ HHEHHICENTRAFRIQUE#####44 UT< 
9974 g$="CENT"':capi$="Bang" 2NU£ 
998% GOSUB 7478 IV 
9996 FOR p=û TO 6û STEF 26 3 IW< 
9606 IF p=ù THEN coi=5 :EM< 


9616 IF p=26 THEN col=é #HN£ 


9629 IF p=46 THEN col=i ?6P4 
9639 IF p=66 THEN col=i :JQ< 
9644 FOR y=0 TO 26 STEP 3 FYRS 
9690 PLOT 4,Btp+y,col:DRAW A+i26,B+ UT 
p+y 

9660 NEXT:NEXT #JUé 
0679 FÜR x=54 TO 7 STEP 4 3WE 


5689 PLOT A+x,B,3:DRAW Atx, B+B0:NEX ?FWE 
: 


9670 q=Atibir=B+70:cb=5:GOSUB 6926 ?PX< 
5796 GOSUB 6226:G0SUB 7136:RETURN V4 
9714 : F4 
5720 HHHHNNPANAMAREHENENEE AD 
9730 g$="PANA":capi$="Fana" 3JR4 
5/46 GOSUE 747û #ÂT: 
9/50 ci=2:c2=2:c3=2:G0SUB 6486 FU“ 
5769 FOR y=6 TO 38 STEP 2 PLV< 


5770 PLOT A,B+y.L:DRAW At, B+yiNEX > 
T 
5780 FOR y=40 TO 80 STEP 2 :RKE 
5796 PLOT A+64,B+y,3:DRAW A+120,B+y >UVé 
:NEXT 
5800 q=A+30:r=B+bû:ch=1:GOSUE 4846 >YF4 


9816 q=A+94:r=B+20:c6=3:GOSUB 6849 >HQ< 
9820 GOSUE 6220:G0SUB 7136:RETURN  :YR< 
9839 ‘ UT 
J846  HHEHHERDANGLADESHEEE KA AUX 
9899 g$="BANG":capi$="Dacc" ?FVK 
5866 GOSUB 7470 ?AW< 
9879 ci=b:c2=b:c3=6:GOSUB 46486 FAX 
5889 couleur=7:G0SUB 6990 PNY 
9699 GOSUB 6220:60SUB 7136:RETURN  >FZ< 
5900 ‘ RO 
910 HHOMURSG MENU DIRE 


9920 g$="URSS":h$="UNIO": 1$="RUSS" RT< 
9930 capi$="Mosc":GO0SUB 7478 

3949 ci=S:c2=3:c3=3:GOSUB 6480 
9999 PLOT ÀA+16,B+64,5:DRAN A+36,B+5 
4 

9960 PLOT A+12,B+62:PLOT A+24,E+66 
9976 PLOT A+32,B+60:DRAN À+32,E+66 
9989 PLOT A+32,B+68:DRAW A+24,B+72 TZ 


9790 PLOT A+24,B+56:PLOT A+20,B+54 FA 
6000 PLOT A+i6,B+56:DRAW A+8,B+52  :KG< 
6616 GOSUB 6226:G0SUB 7134 #EH< 
6028 h$="#æk"s 1 $= "HE: RETURN 2XJ< 
6939 ‘ ?LK< 
ED4D *HHHHHHHEGRECE HE BL 
6856 g$="GREC":cap1$="Athe" ?HM£ 
6666 GOSUR 7474 ?TN< 
6674 ci=i:ci=i:c3=1:G0SUB 6486 YP< 
648à FOR n=12 TO £û STEP 16 'EA< 
6896 FOR y=p+2 TO p+8 STEP 2 3XRÈ 


6190 PLOT A,B+y,2:DRAW A+129,B+y:NE AH 
XT:NEXT 

&ii0 FOR y=38 TO 80 STEP 2 
6126 PLOT A,B+y,1:DRAW A+52,B+y:NEX ?UK£ 


T 


6130 FOR y=54 TO 40 STEP 2 
&149 PLOT A,B+y,2:DRAW A+52,B+yiNEX > XM£ 


T 


6159 FOR «=24 TO 32 STEF 4 
6166 PLOT Âtx,B+36,2:DRAW Â+x, B+B0: 


NEXT 


6176 GOSUB 6226:G0SUB 7130:RETURN 


biBÿ 

61% ‘ 
6200 
6219 ‘ 
6220 ‘ 


HPHHATRACE DU CADRE###H4 


6230 PLOT A,B,2:DRAW A+120,B 
4246 DRAN A+120,B+80: DRAM À, B+80 
6250 DRAW A, B:RETURN 


6260 ‘ 
6270 ‘ 


##H443 BANDES VERTICALES#### 


6280 FOR P=1 TO 8i STEP 49:X=A+P-1 
629%% IF P=1 THEN Col=Ci 


6300 I 
6319 I 


F P=41 THEN Col=C2 
F P=81 THEN Col=C3 


6326 FOR X=A+P-1 TO A+P+39 STEP 4 
6336 PLOT X,B,Col:DRAW X,B+B0 
8340 NEXT:NEXT:RETURN 


6350 * 
638 ‘ 


HHHHMPETITS DRAPEAUX HR 


6376 ENT -7,1,-5,4 

4380 SOUND 129,500, 340, 19,9,7 
6396 FOR 4=45 TO 565 STEP 40 
b4oÿ FOR P=1 TO 17 STEP 8: X=A+F-1 


6419 I 


F P=i THEN Co=i 


6426 IF P=9 THEN Co=2 


6430 I 


F P=i7 THEN Co=3 


6440 FOR X=A+P-1 TO A+P+7 STEP 2 
6450 PLOT X,B,Co:DRAW X,B+I6:NEXT:N 


EXT 


b4b@ PLOT A-2,B,2:DRAW A+24, B:DRAW 
&+24,B+16:DRAN A-2,B+16:DRAN A-2,B: 


NEXT:RETURN 

6470 ‘ 

648û ‘ *##2 ou 3 BANDES HORIZONTALE 
GHH4 

6490 IF C3=0 THEN stp=40 ELSE stp=2 
ë 


6500 FOR p=0 TO 52 STEP stp 
6510 IF p=0 THEN col=Ci 


6528 I 


F p=stp THEN col=C2 


39 IF p=stp#2 THEN col=C3 
6549 FOR y=B+p TO Btp+stp 
6550 PLOT À,y,col:DRAW A+129,y 
656% NEXT:NEXT:RETURN 


6570 ‘ 
6580 ‘ 
6590 
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HHHHICHANGEMENT DE #44 
HP AGE HE 


#LJ< 


Li 


HN 
2JP< 


2 KO 
?TR< 
FNT< 
?EJ< 
>LK< 
?AL£ 
2 YM< 
?YN£ 
?BP€ 
?RQK 
>VR< 
?ÎT< 
>CU< 
3BK< 
?HL£ 
?LM< 
?PN< 
>PP< 
>RQ< 
>ER< 
2WT< 
?BU< 
}JVE 
?DL< 
>QM< 
?BN< 
}EP< 
ER 
>DR< 


DT 


>VUX 
>KV< 


AW 


>DM< 
?WN< 
PP< 
RQ 
?TR< 
?QT< 
>UU< 
>WV< 
?DK< 
?FX< 


660 LOCATE 20,24:PRINT CHR$ (243) 
6b19 A$=INKEYS 

6626 IF A$<:"" THEN 6b7ù 

6639 FOR n=1 TO 3 

b646 READ #:SOUND 1,f,25:SOUND 2, f/ 
2,25 

6659 DATA 478,319,379 

b6b@ NEXT:RESTORE:GOTO 6616 

b674 Po=i 

6684 CLS:RETURN 

6696 * 

E70Ù  HÉHHEHAHETOILER HE 
6710 DEG:FOR p=9ù TD 450 STEF 72 
6720 FOR r=4 TO @ STEP -2 

6736 PLOT A+bÿ+14#C05 (p},B+42+14#GI 
N(p),c4 


6749 DRAH Atéü+raC0S (p-36) ,B+424r46 à 


IN(p-36) 

675% PLOT A+6ÿ+14#C0S (p),B+42+14#5] 
N(p} 

6760 DRAW A+b0+r4C05 (p+36),B+42+r45 
IN(p+36) 

677% NEXT r:NEXT p:RETURN 

6780 ‘ 

6700 ‘ #44 CROIX HE 
6890 FOR y=B+33 TO B+47 STEP 2 
6816 PLOT AÀ,y,co:DRAW A+126,y:NEXT 
6820 FOR x=A+39 TO A+49 STEP 2 
6830 PLOT x,B:DRAW x,B+B0:NEXT:RETU 
RN 

6849 

6650 ‘#HHHHHHAPETITE ETOILE###4#H44 
6866 FOR y=r-8 TO r+8 STEP 2 

6870 PLOT q,y,cb:NEXT 

6886 PLOT q-B,r+4:DRAW q+8,r-4 
6896 PLOT q+8,r+4:DRAW q-B,r-4 
6906 RETURN 

6919 ‘ 

6920 ‘####X4TRES PETITE ETOILE####4 
6939 FOR y=r-4 TO r+4 STEP 2 

6949 PLOT q,y,cb:NEXT 

6950 PLOT q-4,r+#2:DRAW q+4,r-2 
6968 PLOT q+4,r+2:DRAW q-4,r-2 
6970 RETURN 

6986 ‘ 

6900 * HIHHHHIHHECERCLE HR 
7006 DEG:FOR u=ÿ TD 36 STEP 5 
7016 PLOT A+62,B+42, Couleur 

7020 DRAW A+b2+17#C0S (u) ,B+42+17#SI 
Nu) 

7630 NEXT 

7049 FOR y=32 TO 50 STEP 2 

7050 PLOT A+80,B+y:NEXT 

7060 PLOT A+48,B+34:PLOT À+76,B+54 
7670 PLOT A+76,B+39:PLOT A+76,B+28 
7880 PLOT A+72,B+26:PLOT A+68,B+24 
7696 PLOT A+44,B+32 

7199 RETURN 

7119 ‘ 


>UN< 
>FP< 


2NVE 
AE 


2YX< 
LV 
?QZ< 
?CQ 
NRE 
KT 
AU 


?WV< 
WW 
>QX< 
>AY< 
FXZ< 
AC 
>XR< 
>UT< 
?KU< 
JEV 
AYWE 
?6X< 
>HY< 
?EZ{ 
>BA< 
?1B< 
>MH< 
>KJ 
?EK< 


RL 
?EM< 
>XÂN€ 
>JP< 
HA 
?6R< 
?ET< 
>PJ< 
?LK£ 


7120 ‘HHHHHKQUEST ION-REPONSE####4 
7136 quest=i:qu$=" Pays" 
7149 repi$=g$:rep2$=h#:rep3$=1$ 
7154 WINDOW #1,H11,W12,W13,W14 
7169 PEN#1,2:PAPER#1,0 
7176 IF CHOIX=1 THEN GOTD 7376 

7180 CLS #quest:FRINT fquest,qu$ 
7196 INPUT #quest, rep$ 
7200 rep$=UPPER$S (rep$) :rep$=LEFT$(r PK 


ep$,4) 


7216 IF rep$="" THEN GOTO 7184 
7220 IF rep$="2" THEN PRINT CHR# (7) 


:60T0 7370 


7230 IF rep$=repi$ OR rep$=rep2$ OR : 


rep$=rep3$ THEN 7310 


7246 CLS #quest:PRINT #quest," NDN 


7250 IF quest=i THEN noni=noni+i 
7260 IF quest=2 THEN non2Z=non2+i 
7270 ENT -9,26,5,1,1,-100,1 


7280 ENV 9,15,1,6,15,-1,26 


7296 SOUND 129, 29,330, 15,9,9 
7300 FOR n=1 TO 1560:NEXT:GOTO 7180 


7316 CLS Hquest:PRINT quest 


ju 


“ Qu 


« 1] 


7326 IF quest=i THEN ouii=ouii+i 
7330 IF quest=2 THEN ouiZ=oui2+i 
7349 ENT 2,=256,1,28,-10,1,26,10,1 


7350 SOUND 2,9,40,15, 
7360 FOR n=1 TO 2300: 


0,2 


NEXT 


7376 CLS #quest:PRINT #quest," “;re 


pi$ 


7380 quest=quest+i:qu$="Capit." 


7396 repi$=capi$ 
7400 rep2$=UPPER$ (cap 
7416 rep3$=UPPERS$ (cap 


2$) 
1$) 


7429 WINDOW #2,H21,W22,H23,W24 
7436 PEN #2,9:PAPER #2,0 
7449 IF choix=i AND questi3 THEN 75 


1 


7450 IF quest{3 THEN GOTO 7176 


7460 RETURN 
7470 * 


7480 "#44 POGITIONNEMENT #44 


7498 ON Po GOTO 7506, 7550, 7600, 7636 


,7700, 7750 
7500 A=b4 :B=260 


7516 Wi1=2 :W12=8 :W13=11:H14=12 
7520 W21=2 :W22=8 :W23=12:W24=13 


7530 W31=2 :W32=7 :W33=3 :H34=3 :RE 


TURN 
7549 ‘ 
7590 À=256:B=260 


7560 W11=8 :W12=14:H13=11:W14=12 
7570 W21=8 :W22=14:W23=12:424=13 


7580 WS1=8 :W32=12:W3 
TURN 
7590 


3=3 :! 


W34=5 RE 


2ML< 


E0< 
DR 
3FTE 
#XU4 
AUVE 
?6L4 
> RM< 


dant 


>BN( 
>FP< 
A 
>IRC 
DHT< 
>XU< 


3TV 
MW 
?NM< 
?PN€ 
?KP< 
HQ£ 
2FR< 


3 JT< 
#IU< 
SWVE 
+PKE 
?6X<€ 


?QN< 
?TP< 
AG 
3R€ 


UT 
?BU< 
>DWK 
>LH£ 
?UX< 


>IVK 


7600 A=448:B=26à 

7619 W11=14:W12=29:W13=11:W14=12 
7620 W21=14:W22=20: 23-12: W24=13 
763ù W31=14:W32=18:H33=3 :W34=3 
TURN 

1649 

1850 A=64 :B=64 

1666 Wii=2 :W12=8 :W13=22:W414=23 
7676 W21=2 :W22=8 :W23=23:424=74 
768% W31=2 
TURN 

7698 
7700 A=256:B=84 

7716 W11=8 :W12=14:Wi3=22:W14=23 
7720 W21=8 :M22=14: 1423-23: W24=24 


1738 W31=8 :WS2=12:W33=14:H34=142RE 


TURN 

7748 

7750 À=446:B=84 

7766 W11=14:W12=20:N13=22:414=27 
7770 W21=14:H22=20:W23=23:W24=24 


7789 WS1=14:W32=18:H335=14:W34=14:RE 


TURN 

779 ‘ 

7800 HHHHHAHARESULTATO HER 
7816 GOSUB 6580 

7820 MODE 1:PEN 2:PAPER 0 


(a 
CA 


g 
me 
Le 
L 2 
$ 


à 


MF ef 0 
Son. 
à sich dust 
osirr 


1H 


PTS 


RE 


au < 
nain 
ETS 
P dada 
au <a. 
ex 
me 
sers 
ane 


md 
eh. 
Cf 


1HIZ=6 NTFS MIAZIAIRE VV: 


FAZX 
AGE 
?ER< 
2MT£ 
>ZUE 


PWVE 
>JW< 
3FX< 
2NY< 
?KZ< 


>BA{ 
>RR 
NT 
>MUK 


785% IF CHOIX=1 GOTO 136 


: [7846 B=380:GOSUB 6360 


785% LOCATE 2,5 
786 FRINT" Voici vos resultats pou 
r'snbre; "nations: * 


< [7876 FOR n=i TO 2640:NEXT 


7889 LOCATE 19,9:PRINT"-Pays: " 


[7896 IF ouii+noni<2 THEN 7926 
7966 IF ouil£2 AND ouii+noni:=2 THE ? 


N 7930 

7914 IF ouil:=2 THEN 7048 

7920 PRINT:PRINT " “souii;" reponse 
exacte pour ";ou1itnoni:" essa1.": 
GOTO 7956 


7936 PRINT:PRINT " "sou1l:;" reponse ; 


exacte pour “;ouiitnoni;" essais." 
:60T0 7950 

7949 PRINT:PRINT " “souiis;" reponse 
s exactes pour "souiitnoni;" essais 
.":60T0 7956 

7956 FOR n=i TO 2506:NEXT 

796 LOCATE 16,15:PRINT"-Capitales: 


7976 IF oui2+non2<2 THEN 8006 

7980 IF oui2<2 AND oui2+non2;=2 THE 
N 8919 

1996 IF oui2?=2 THEN 8629 


Gérard TANNIERE 


>RV 
>RW 
>UX< 
?T# 


RU: 
?XVK 


VX 


?QY< 
AL 


LA 


FE“ 


QC< 








8006 FRINT:PRINT  “soui2:" 
exacte pour ‘;ouii+noni: * 
GOTO 80:54 

8616 PRINT:FRINT " "souidi" reponse :Vki 


reponse :DJ* 


essai.": 


exacte pour “;oui2tnonz;" e55a15." 
:60T0 8439 

8026 PRINT:FRINT “ “souiii:" reponse :CL£ 
s exactes pour “:ou1itnoni;" e55a1s 

8939 PRINT:FRINT: PRINT " Voule :JM: 
z-vous recommencer ?" 

8649 PRINT:FRINT " - Tapez :QN: 
Ô pour oui" 

8656 PRINT ‘ - Tapez N pour :ÙF“ 
non“ 

8966 a$=UPFERS$ (INKEYS) :PG: 
6076 IF a$<{>:"O" AND a$<:"N" THEN 86 >RR< 
Et] 
880 CLS 2XT< 
8699 IF a$="0" THEN GOTO 366 


EUX 
8169 LOCATE 5,18 #4: 
UL: 


8119 FRINT "Alors au revoir, et a D 
ientot i" 
8120 B=156:G0SUE 6360 ?CM< 


8136 LOCATE 1,24:END 16:END END END :DN4 


8344 END ?NW< 





En ordonnant les symboles des éléments chimiques par ordre de masse 
catomique croissante dans un tableau à double entrée, le chimiste russe Dimitri 
MENDELEIEV (1834-1907) s'est aperçu en 1869, que l'on trouvait dans une 
même colonne des éléments ayant des propriétés communes et le même 
nombre d'électrons dans la couche périphériques de leur structure électronique. 
Chaque élément occupe une case de ce tableau, le numéro d'ordre de la case 
étant identique au numéro atomique de l'élément (nombre de protons du 


noyau). 
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"NUCLEAR" (de nucléon : ensem- 
ble des protons et neutrons d'un 
noyau) est un programme destiné 
aux classes de 2 nde de chimie, trai- 
tant de l'utilisation de ce tableau de 
MENDELEIEV, appelé aussi ta- 
bleau de la classification périodique 
des éléments. 

Le programme comporte deux 
parties : 


1 - Etude : 


‘En déplaçant le carré clignotant sur 
le tableau à l'aide des flèches, vous 
obtenez, après appui sur [COPY], 
la carte d'identité complète de l'élé- 
ment sélectionné : 

- Symbole 

- Nom 

- Numéro atomique 

- Nombre d'électrons sur les diffé- 
rentes couches. 

- La couleur de fond de la fiche indi- 
que la famille de l'élément. 

- La couleur d'écriture indique l'état 
de l'élément dans les conditions 
normales : 

- Noir = solide 
- Bleu = gazeux 
- Rouge = liquide à 30°C 
- Blanc = obtenu artificiellement. 


2 - Jeu 


Après choix du niveau, l'ordinateur 
tire au sort et affiche le symbole 
d'un élément. 


- Niveau 1 
l'élément. 
- Niveau 2 : vous ajoutez le numéro 
atomique. 

- Niveau 3 (réservé aux très 
doués! ) vous devez entrer en plus 
la masse atomique. 


: vous entrez le nom de 


A l'issue des 20 questions, vous 
prenez connaissance de votre no- 
te. 
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LE ANNEE 


24 ‘4 NUCLEAR # 
39 ‘+ par # 
49 ‘+ Gerard Tanniere # 


SU S SELS S SES SES SES ESS) 

bë BORDER 13:INE 6,13:INE 1,6:INE 2 
28: INE 3,6: MODE 1:PAFER G:PEN 1:CL 
S:DEG: ORIGIN 246,296 

74 PEN 3:LOCATE 26,4:PRINT "NU CL 
E À R':PEN 1:LOCATE 31,12: PRINT"pa 
r':FEN Z:LOCATE 28,29:PRINT"G. Tanni 

ere":PEN i 

86 PRINT CHR$ (27) +CHR$ (1): : TAG: PLOT 
b,-290,2:MOVE 6,6:PRINT CHR$(231): 
:PLOT 60,-2560,3: MOVE 4,0:FRINT CHR$( 
231); :PLOT 6,-250,1:FO0R a=1 TO 1846 
STEP 10: xg1=206#C06 (a) : vai=14045IN 
{a}: xg2=106#C06 (a+120) :yq2=1864S IN 
ati26}: 

96 MOVE xg1,vgl:PRINT CHR$(144} ::M0 
VE xg2,vg2:FRINT CHR$(144): 
166 NEXT:TAGOFF: PRINT CHR#( 
{g}: 

118 RESTORE 666:DIM tn(13,116),t$(2 
.116):FOR x1=i TO 165: SOUND 7,xi,15 
.72FOR x2=1 TO 13:READ nitn(xa,xii= 
niNEXT x2:FOR x3=1 TO 2:READ n$:t$i 
#3, XL)=n$iNEXT X3:NEXT xi 

126 ‘+44 Mode d'emploi +## 

134 CLS:RESTORE 1724:F0R nbl=i TO 3 
Q:READ x1,vl,cray,phr$:FEN cray:LOC 

ATE x1,YL: PRINT phré:;:NEXT:CALL &BB 
IB:PEN 1:FRINT CHR$(7): 

149 ‘+++ Utilisation du tableau +## 


23: +CHR$ 


156 ORIGIN 0,4:CLG:MOVE 127,270: DRA à 


W 417,270: DRAW 417,384: DRAN 127.384 
:DRAW 127,272: WINDOW#1,9,26,2,8:WIN 
DOW#2,26, 36,2, 4:LOCATE 2,1:PRINT CH 
R$ (24) : “CLASSIFICATION FERIODIQUE D 

ES ELEMENTS": CHR$ (24) ; 

166 RESTORE 1786:FDR x=i TO 28:READ 
xd, xa, ya: MOVE xd,ya:DRAW xa,va:NEX 


CT: FOR y=i TO 60: READ va, yd, xa: MOVE 


ka, va: DRAW xa,yd!NEXT: PRINT CHR$ (22 
H+CHR# (1); :LOCATE 1,2:FRINT “period 
e":LOCATE 2,3:PRINT CHR$ (241) : LOCAT 
E 18,17:PRINT CHR$(24{1):" lanthanid 
es" 

174 LOCATE j,21:PRINT “groupe “:LOC 
ATE 5,22:PRINT CHR$(241):LOCATE 18, 
22: PRINT CHR$(246):" actinides*:LOC 
ATE 7,20:PRINT CHR$ (243): :LOCATE 9, 
17:PRINT CHR$(241):: PRINT CHR$(23i+ 
CHR$ (1): TAG: FOR v=6 TO 6: MOVE 8,3 

2-(V#I2) PRINT v+is:MEXT 


?PE£ 


STE 
#UF< 
»06< 


2BH° 


*AJ< 


2TÉ< 


?XE< 


#DC< 


*ED< 
»QE< 


»EF< 


FF 
GO 


3AH£ 


#EJ< 


186 FOR g=1 TO 7:MOVE g#32,3B:PRINT EX, 
gs:MOVE g#32+30,38: PRINT "a"; :NEXT 
MOVE 309,30: PRINT "8"; "a"; : FÜR g=1 
TO 7:MOVE g#22+320,38: PRINT g3: MOV 

E a#32+350.38:PRINT “b'::NEXT: MOVE 

646,38:PRINT "4"; 

199 FOR x=1 TO 195:MOVE tn(i,x)-b#{ : 

LENCES(1,%))€2) ,tn(2,x)-8:FRINT t#( 

1,3) 3: NEXT: TAGOFF: PRINT CHR$ (23) +CH 

R$(O): PRINT CHR$ (22) +CHR$ (0): 

268 PEN#1,1:PAPER#1,0:CLS#1:PEN#2,1 :NC< 
: PAPER#2, 0: LOCATE#1, 7,2: PRINT#1, CHR 

$(24) : "MENU": CHRS (34) : LOCATE#I, 5,4: 

PRINT#1,"1--; etude":LOCATE#I,5,6:P 

RINT#1,"2--+ jeu": WHILE rub$£i"" 

b$=INEEYS#:WEND:HHILE  rub$<:"2" po 

rub$<? "1": rub$=INÉEYS : NEND 


si 


214 PRINT CHR#(7)::0N VALirub$) GOT ?CD< 
O0 226,366 

220 ‘*### partie etude ##4 ?CE< 
2356 GOSUE 426 3TF£ 
24ù xc=49:ve=35ù 2FG< 
256 xc=xc+ (324 (INÉEY (8) 5-11) CIZ4 CT MHE 


NÉEY ()5-1)):1F xc:993 THEN xc=xc-3 

2 ELSE IF xc£49 THEN xc=xc+32 ELSE 

GOSUB 454 

266 ve=ve+ (SK (INÉEY (2)3-11)- (324 CT DJ< 
NÉEY(9)5-11)21F ve:354 THEN ve=yc-35 

2 ELSE IF yci93 THEN ye=vc+32 ELSE 

GOSUE 454 

274 IF INKEY(9)3-1 THEN CLS#1: PRINT #KK£ 
CHR$ (7): :GOSUB 476 

280 IF INÉEY(38)>-1 THEN PRINT CHR$ 3DL< 
(7}::G0T0 266 


296 GOTO 256 FYM< 
300 ‘#44 partie jeu +#4# RD 
314 CLSH2:CLS#1:PRINT#L:PRINT#Ii,SPC ?BE£ 


(7) 3 "JEU": PRINT#L:PRINTH#I, SPC (2) ; CH 
R$ (24; "{"SCHRE (24) debutant", SF 
C(2):CHR$ (24) : "2" CHR# (24) "> moven 
"SPC (2) CHRS (24) 3 5 CHRS (24) 3" 


URSS 
326 WHILE nivé£i""enivé=INEEYS: HEND WF < 
sHIL E niv$ii"3" AND nivéi:"2" AND 
niv#i"{"enivé=INKEYS: WEND: n1v= VAL ( 
niv) 
3360 sco=b:FOR quest=1 T0 26 KG 
349 RANDOMIZE TIME: 4=INT (RND#149) +1 3 7H£ 


LINE 2,tni3, x) :PAPER#1, 2: CLS#1: INÉ 
3,tn(4,x) 

354 PEN#1,3:PAPERK2, 2: PEN#2,Z:ci$=C 3LJ< 
HRS (15) +CHRS C1) +CHRS (24) : c2$=CHRS (1 
SI+CHRS (3) 2 CIS=CHRS (24) : CLS#2: PRINT 
#2,ci$s"niv "ici$sc2$iniv,ci$: "ques 
“ic3$:c28; quest, c1$; “sco "c3$:sc0; 


368 IF niv>6 THEN LOCATE#1,9,2:PRIN ?DK£ 
T#i,c2$5 €$ (1, x): PRINT#1, SPC (INT (15 
LEN(t#(2,x)}3/2); :quest$= =UPPERS (t$( 


2,*x)):q=1:60SUB 550 

370 IF niv>i THEN PRINT#I,c1$; "nb a 

to: ":c3$;c2$: : quest $=UPPERS (STR$ (En 

(5,x))}:quest$=RIGHTS (quest$, LEN (qu 

est$i-1}:q=2:G60SUB 550 

380 IF niv>2 THEN PRINT#I,ci$:"m. a 

to:":c3$:c2$: : quest $=UPPERS (STRS (tn 

(6,x))):quest$=RIGHTS (quest$,LEN (qu 

est$)-1):q=3:G0SUB 554 

390 NET quest 

és CLS#2: :PRINT#2," niv “sniv," 
tes": PRINT#Z,USING "##.#":sco/niv: 

:PRINT#2,"/29"; 

416 GDTO 200 

426 ‘##t sp-liaffichage menu etude 

#4 


430 CLS#2:CLS#1:LOCATE#I, 2,2: PRINT# : 


1, CHR$ (240) : CHR$ (241) : CHR$ (242) : CHR 
$(243);" deplacement"; " curse 
ur": PRINT#1,SPC(19);" CCOPY] fiche" 
:" [M] retour menu“ 

440 RETURN 

450 ‘### sp-2: impression croix ### 

460 PRINT CHR$ (23) +CHR$ (1) : : TAG: MOV 
E xc+B,yc-B:PRINT CHR$(233):: FOR t= 
1 TO 25:NEXT: MOVE xc+8,yc-B:PRINT C 
HR$ (233) s : TAGOFF : PRINT CHR$ (23) +CHR 
$ (0) :: RETURN 


47Q ‘xx sp-Zitest limites +#+# 


486 FOR x=1 TO 145:1F xc=tnii,x) AN à 


D yc=tn(2,x) THEN GOSUB 506 ELSE NE 
XT x 
490 RETURN 


990 ‘### sp-4:affichage fenetre +++ 


919 INK 2,tn(3,x):PAPER#1I,2:CLS#i:T à 


NE 3,tn(4,x):PEN#1,3:c1$=CHR$ (15) +C 

HR$ (1) +CHR$ (24) : c2$=CHRS (15) +CHR$ (3 
=CHR$ (24) 

929 PRINT#1,SPC(B) :t$(1,x),SPCCINT( 

17-LEN(t$(2,x)))/2):t$(2,x),c1$: "nb 

ato:":c3$ic2$stn(5,x),ci$s"m. ato: 

sci$sc2$stn(é, x) 

930 PRINT#1,c1$; "couches elect:",c3 

$ica$itn(7,x)s","stn(B,xs","itn(g, 

2)", "etn(6,x)5""stn(ti,x)s","stn 

U2,x);","stn(i3, x); 

549 RETURN 

990 ‘##+ sp-Sientree reponse et con 

trole *## 


960 INPUT#1." “,srep$:IF rep$="" THE : 


N GOTO 566 ELSE IF UPPERS (rep$)=que 
st$ THEN FOR s=105 TO 1 STEP-1:SOUN 
D 7,s,1,7:NEXT:sco=sco+i:G0SUB 584 
ELSE GOSUB 619 

974 RETURN 

989 ‘### sp-b:Affichage fenetre 2 
#+ 


996 PEN#2,3:LOCATE#2,5,2:PRINT#2,qu > 


no À 


?1L< 


2FM< 


>MJ£ 
>UK< 
>CL< 


JM 


>KHK< 


?EJ< 


RL 


# >GP< 


est; :LOCATE#2,5, 3: PRINT#2,5co; 

669 RETURN 

619 ‘#*## sp-7:s0lution reponse faus 
se ### 

629 IF q=1 THEN LOCATE#1,1,3:PRINT# 
1,SPACES (17) :LOCATE#1, 1,3: PRINT#1,5 
PCCINT(17-LENCtS (2, x))}/2) squest$ 
63 IF q=2 THEN LOCATE#1,9,4:PRINT# 
1,SPACES (9) :LOCATE#1,9, 4: PRINT#1, qu 
est$ 

649 IF q=3 THEN LOCATE#1,9,5:PRINT# 
1, SPACES (9) : LOCATE#1,9,5:PRINT#i, qu 
est$ 

650 q=0:FOR s=1 TD 105: SOUND 7,5,1 
TiNEXT:FOR t=1 TO 1004: NEXT: RETURN 
660 ‘##+ DATA elements chimique #+## 


670 DATA 49,350,13,1,1,1.008,1,0,0, : 


0,9,9,9,H,Hvdrogene 


686 DATA 593,350,26,1,2,4.00,2,0,9, ; 


9,0,9,0,He,Helium 


490 DATA 49,318,24,0,3,6.94,1,2,0,0 : 


,9,9,9,Li,Lithium 
700 DATA 81,318,25,0,4,9.013,3,2,08, 
0,9,9,0,Be,Beryllium 


710 DATA 433,318, 14,0,5,19.82,3,2,9 ) 


,9,9,9,9, B,Bore 
724 DATA 465,318,5,6,6,12,01,4,2,9, 
9,94,0,0,C,Carbone 


730 DATA 497,318,16,1,7,14.00,5,2,0 : 


.0,0,0,9,N,Azote 


746 DATA 529,318,7,1,8,16,6,2,0,9,0 


.9,9,0,0xygene 


75 DATA 561,318,13,1,9,19,0,7,2,Û à 


:9,9,4,9,F,Fluor 


760 DATA 593,318, 26, 1,10, 20.18,8,2, 


9,4,9,0,9,Ne, Neon 

774 DATA 49,286,24,6,11,22.99,1,2,0 
,9,9,0,0,Na, Sodium 

786 DATA 81,286,25,6,12,24,32,2,2,0 ; 
,2,9,9,9,M9,Magnesium 

794 DATA 433,286,14,0,13,26.98,3,8, : 
2,4,9,0,6,A1,Aluminium 


80û DATA 445, 286,5,9, 14, 28.09, 4,8,2 ) 


.9,9,0,0,Si,Silicium 


816 DATA 497,286, 16,6,19,36,97,5,8, ; 


2,0,9,0,0,P,Phosphore 


820 DATA 529, 286, 7,9, 16,32. 06, 6,8,2 : 


LA 9,9, 4,5,Soufre 
838 DATA 561,286, 13, 
2,0,6,0,4,C1,Chlore 


1,17,35.45,7,8, 


846 DATA 593,286, 26,1,18,39.94,8,8, à 


2,0,06,9,9,Àr, Argon 
856 DATA 49,254,24,0,19,39,1,1,8,8, 
2,9,6,0,K,Fotassium 


860 DATA 81,254, 25,6, 20,40.08, 2,8,8 ) 


.2.4,9,9,Ca,Calcium 
874 DATA 113,254,15,0,21,44,96,2,9, 
8,2,0,09,0,Sc,Scandium 


>KG< 


>DH< 


>HJ< 


>UK< 


?YL< 


, DCM£ 


IN 


880 DATA 145,254, 15,0,22,47.96, 2 19 
8,2,0,9,9,7i,Titane 

890 DATA 177,254,15,0,23,950.95,2,11 
,8,2,9,09,0,V,Vanadium 

900 DATA 209,254, 15,0,24,52.01,1,13 
,8,2,0,0,0,Cr,Chrome 

910 DATA 241,254,19,0,25,54.94,2,13 
8, 2,0,09,09,Mn,Manganese 

926 DATA 273,254,19,0,26,55.85,2, 14 
,8,2,09,0,0,Fe,Fer 

930 DATA 395,254,19,0,27,98.94,2,15 
,8,2,9,0,0,Co, Cobalt 

949 DATA 337,254,19,6,28,98.71,2,16 
,8,2,9,9,0,Ni,Nickel 

954 DATA 369,254,9,9,29,63.54,1,18, 
8,2,0,9,9,Cu, Cuivre 

960 DATA 491,254,9,9,39,65.38,2, 18, 
8,2,0,0,0,Zn,Zinc 


970 DATA 433,254,14,6,31,69.72,3,18 : 


.8.2,9,0,0,6a,Gallium 
980 DATA 465,254,5,0,32,72.60,4,18, 
B,2,,9,0,Ge, Germanium 


996 DATA 497,254,16,4,33,74,91,3,18 : 


,8,2,9,0,0,45,Ârsenic 


1900 DATA 529, 254,7,0,34, 78.96, 6, 18 > 


.8,2,0,0,0,5e,Selenium 


1910 DATA 561,254,13,6,35,79,91,7,1 : 


8,8,2,0,0,0,Br,Brome 


?HT< 


3VU< 


>EK< 


iL< 


? M 


?UN€ 


>DP< 


>HQ 


1929 DATA 593,254,26,1,36,83,80,6,1 >4D< 


8,8,2,0,9,9,kr,Krypton 


1930 DATA 49,222,24,0,37,85.48,1,8, : 


18,8,2,9,0,Rb,Rubidium 

1946 DATA 81,222,25,0,38,87.63,2,8, 
18,8,2,9,0,6r,Strontium 

1950 DATA 113,222,15,0,39,88.92,2,9 
.18,8,2,0,0,Y,Yttrium 

1966 DATA 145,222,15,6,40,91.22,2,1 
6,18,8,2,0,0,7r,Zirconium 

1976 DATA 177,222,15,0,41,92,91,1,1 
2,18,8,2,9,9,Nb,Niobium 

1980 DATA 209,222,15,0,42,95.95,1,1 
3,18,8,2,4,9,Mo,Molybdene 

1990 DATA 241,222,15,26,43,99,1,14, 
18,8,2,9,0,Tc,Technetium 


1160 DATA 273,222,19,0,44,101.1,1,1 : 


5,18,8,2,6,9,Ru,Ruthenium 
1116 DATA 369,222,19,0,45,102.91,1, 
16,18,8,2,0,6,Rh,Rhodium 


1126 DATA 337,222,19,4,46,196.4,0,1 : 


8,18,8,2,9,0,Pd,Falladium 


1130 DATA 349,222,9,0,47,107.88,1,1 > 


8,18,8,2,06,9, A9. Argent 


1149 DATA 491,222,9,0,48,112,41,2,1 


8,18,8,2,9,0, Cd, Cadmium 
1150 DATA 433,222, 14,0,49,114.82,3, 
18,18,8,2,9,09, In, Indium 

1160 DATA 485,222,5,0,50, 118. 70,4,1 
8,18,8,2,0,0,Sn,Etain 

1176 DATA 497,222, 16,0,51,121.76,5, 


F4 


?FG< 


>PH€ 


2MJ< 


#JK< 


?TH< 


+ 


2JJ< 
2TK€ 


29 


18, 18,8,2,9,0,Sb, Antimoine 


1189 DATA 529,222,7,0,92,127,61,6,1 : 


8,18,8,2,0,0,Te,Tellure 


1190 DATA 561,222,13,0,53,12b.91,7, >LMé 
18,18,8,2,0,0, 1, lode 
1200 DATA 593,222,26,1,54,131.30,8, >BD< 


18, 18,8,2,0,6, Xe, Kenon 


1216 DATA 49,190, 24,6,55,132.91,1,8 > 


.18,18,8,2,0,Cs,Caesium 


1226 DATA 81,190,25,0,56, 127. 36,2,8 : 


,18,18,8,2,0,Ba,Baryum 


1230 DATA 113,126,17,0,57,138.92,2, > 


9,18,18,8,2,4,La,Lanthane 


1249 DATA 145,126,17,6,58,146,.13,2, 


9,19,18,8,2,6,Ce,Cerium 


1250 DATA 177,126,17,4,99,146,92,2, : 


9,26,18,8,2,6,Pr,Fraseodyme 


1260 DATA 209,126,17,0,60,144.27,2, à 


8,22, 18,8, 2,6, Nd, Neodyme 


1276 DATA 241,126,17,26,61,145,2,8, *AL< 

23,18,8,2,4,Pm,Prometheum 

1280 DATA 273,126,17,6,62,154.35,2, ?DM< 

8,24,18,8,2,0,Gm, Sanariun 

1299 DATA 305,126,17,4,63,152.0,2,8 MN 

,29, 18,8, 2,0, Eu, Europium 

1366 DATA 337,126,17,0,64,157.2,2,9 :CE< 

29, 18,8,2,6,6d,Badolinium 

1316 DATA 369,126,17,0,63,158,93,2, :KF< 

9,26,18,8,2,4,7b,Terbium 

1326 DATA 461,126,17,6,66,162,51,2, :FG£ 

9,27,18,8,2,06,Dy,Dysprosium 

1336 DATA 437,126,17,0,67,164,94,3, :KH£ 
9,28,18,8,2,6,Ho,Holmium 

1349 DATA 465,126,17,0,68,167.27,2, 3YJ4 

9,29,18,8,2,0,Er,Erbium 

1356 DATA 497,126,17,0,69,168,94,3, :kk< 

8,31,18,8,2,8,7Tm,Thulium 

136 DATA 529,126,17,4,74,173.04,2, 3LL£ 

8,32,18,8,2,4,Yb,Ytterbium 

1376 DATA 561,126,17,0,71,174,99,3, :GM£ 

9,32,18,8,2,6,Lu,Lutecium 

1386 DATA 145,190,15,0,72,178.6,2,1 *NN£ 

0,32,18,8,2,4,Hf, Hafnium 

1394 DATA 177,199,15,6,73,180.95,2, :JP£ 

11,32,18,8,2,0,7Ta,Tantale 

1460 DATA 209,196,15,0,74,183.86,2, :EF< 

12,32,18,8,2,6,H, Tungstene 5 

1416 DATA 241,196,15,0,79,186.22,3, :LG< 
3,32,18,8,2,0,Re,Rhenium 

Fe DATA 273,190,19,4,76,19û,22,2, :NH€ 
14,32,18,8,2,6,0s,Dsmium 

1438 DATA 395,199,19,4,77,192,2,8,1 3FJ< 

7,32,18,8,2,6,Ir,Iridium 

1448 DATA 237,194,19,6,78,195,09,1, :PK< 

17,32,18,8,2,06,Ft, Platine 

1454 DATA 369,196,9,6,79,197.4,1,18 :2L< 

32, 18,8,2,6, Au, Or 

1466 DATA 461,190,9,6,80,266.61,2,1 :YM£ 


8,32,18,8,2,0 Hg, Mercure 


30 


1476 DATA 433,199,14,0,81,204,39,3, : 


18,32,18,8,2,0,7T1,Thallium 


1480 DATA 465,190,5,0,82, 207. 21,4,1 à 


8,32, 18,8, 2,0, Pb, Plomb 
1490 DATA 497,199, 16,0, 83, 249.00,5, 
18,32, 18,8,2,0, Bi,Bismuth 


1500 DATA 529,190,7,0,84,210,6, 18,3 à 


2,18,8,2,%,P0,Folonium 

1519 DATA 561,190,13,6,85,216,7,18, 
32,18,8,2,0,At,Astate 

1526 DATA 593,196,26,1,86,222,6,18, 
32,18,8,2,69,Rn,Radon 


1534 DATA 49,158,24,6,67,223,1,6,16 


,32,18,8,2,Fr,Francium 
1544 DATA 81,158,24,0,88,226.05,2, 
,18,32,18,8,2,Ra,Radium 


1550 DATA 113,94,16,6,89,227,2,9, 18 : 


,22,18,8,2,Ac,Actinium 
1564 DATA 145,94,16,0,90, 
19,32,18,8,2,Th, Thorium 


1578 DATA 177,94,16,0,91,231,2,9,20 > 


,22,18,8,2,Pa,Frotactinium 
1589 DATA 209,94,16,0,92,238.67,23,9 
,21,22,18,8,2,U, Uranium 


1596 DATA 241,94,10,26,93,237,2,9,2 : 


5 +9 


2,32,18,8,2,Np,Neptunium 


1649 DATA 273,94,16,26,94,242,2,9,2 ; 


3,32,18, 8,2,Pu, Flutonium 
1614 DATA 395,94,10, 
4,32,18,8,2, Am, Americium 


232.05,2,9 : 


26,95,243,2,9,2 à 


1420 DATA 327,94,10, 26, 96,245, 2,9,2 >AK< 


9,32,18,8,2,Cm,Curium 


1420 DATA 349,94, 10, 26,97, 249,2,9,2 à 


b,32,18,8,2,Bk,Berkelium 


1649 DATA 401,94, 19, 26,98, 249,2,9,2 >G 


7,33,18,8,2,Cf, Californium 
1654 DATA 433 1,94, 16,26,99,235,2,9,2 
8,32,18,8,2,Es, Einsteinium 


1é6û DATA 465,94, 10, 26, 100, 255,2,9, XP 


29,32,18,8,2,Fm,Fermium 

1674 DATA 497,94,16,26,161,256,2,9, 
34,32,18,8,2,Md,Mendelevium 

1680 DATA 529,94,16,26,142,253,2,9, 
31,32,18,8,2, No, Nobelium 


1698 DATA 561,94,16,26,1035,253,2,9, : 


32,32,18,8,2,Lw,Lawrencium 


1768 DATA 145,156, 15,26,164,260,2,1 : 


6,32,32,18,8,2,Ku.Kourchatovium 
1716 DATA 177,158,15,26,165,260,2, 
1,32,32,18,8,2,Ha,Hahnium 


1720 DATA 19,1,3, N.U.C.L.E. AR, 6,2 : 


i.Donne la ,15,2,2,classification 
periodique, {,3,2,des,5,3,1,"195",9 
3,2,elements chimiques, 28,3, 1,connu 
5.,2,4,1i,"Le programme comporte 2 
arties:",3,5,2,1--;,8,5,3,ETUDE 
1736 DATA 1,6,1."Vous deplacez le € 
urseur clignotant a l'aide des tou 
ches du curseur puis ,enappuyant 


3 IM£ 


sur [COPY] la fiche complete del'e 
lement apparait." 

1749 DATA 1,19,1,Chaque element a 
un symbole de couleurdifferente s 
elon qu'il est solide dansles cond 
itions normales (couleur,54,i2,2,n0 
ire,39,12,1,"),",1,13,1,gazeux (cou 
leur, 17, 13,2, bleue, 22,13 "24 
13,t,liquide a 36 deg 

1758 DATA 1,14,1,(,2,14,2,rouge,7,i 
4,1,)ou obtenu artificiellement (,35 
.14,2,blanc,49,14,1,),1,15,1,La cou 
leur de fond de la fiche represen- 
16,1,-te les differentes famille 
s de produits,i,17,i,Le trait gras 
a droite du tableau separe 

1766 DATA 1,18,1,1es,5,18,2,metaux, 
12,18,3,(a gauche),23,18,1,et les,: 
1,18,2,non-metaux,1,19,37, (a droite) 
.,2,28,1,Retour au menu en appuyant 
sur [M],3,2 ,2,2--7,8,21,3,JEU, 1,2 
2,1,A chaque niveau vous devez entr 
er 1 2 oui reponses. 

1774 DATA 12,53,1, Une note vous € 
st attribuee,i,24,i,apres 24 questi 
on5.,4,29,2,---; APPUYER SUR UNE TÜ 
UCHE <-—- 

1786 ‘##+# DATA tabieau ### 

179 DATA 17,79,352,591,627,352,15 
111,320,431,623,326,15,111,208,43 1, 
623,288, 15, 623,256, 15,623,224, 15,62 
3,192,15,111,166, 143,623, 160, 15,111 
.128,111,9591,128,111.591,96,111,591 
.04,47,623,48,47,623,16,112,132,184 
,95,111,86,19,43,356 


180û DATA 19,43, 
3,46,431,591,318, 431,463, 286, 463, 49 
5,294, 495,527, 222, 527,559, 190 
1819 DATA 128,352, 15, 16, 48,47, 
52,47, 16,48, 79,128, 352, 79,86, 128,95 
16,48,111,64,320,111, 16,48, 143,64, 
256, 143,16,48, 175,64, 256, 175, 16,48, 
267,64,256, 207, 16,48, 239,64, 256, 239 
,16,48,271,64, 128,271 
1829 DATA 168,256, 271,64,128, 303, 16 
0,256, 203, 64, 128,325, 16,256, 325, 1à 


.48,367,64,128,367,164.256,367, 10,4. 


8,299,64,128, 299, 160,256, 299, 16,48, 
431,64,128,431,160,320,431, 16,48, 46 
3,64,128,463, 140,320, 463, 16, 48,495, 
64,128,495, 160,326, 495, 14, 48,527 
1839 DATA 64,128, 527, 160, 320,527, lé 
148,959, 64, 128,599, 16û, 320,599, 16, 4 
8,591,64, 128,591, 160,392,591, 16,48, 
623, 160,352, 623, 130, 184, 135, 130,350 
,17,130,350,45, 18,46, 49, 18,46, 621,2 
88,229, 433, 256, 288, 465, 224, 256, 497, 
192,224,929, 166, 192, 561,320, 392,593 


128,3 ? 


>FN€ 


2MP< 


»JQé 


#BR£ 


»DT< 
, DOUX 


139,47,623,18,47,62 XE< 


:EM< 


EN< 


BIORYTHMES 


Stéphane MARCHAND-MAILLET 





En 


"Biorythmes" est un programme permettant de tracer des courbes 
biorythmiques à partir de la date de naissance de l'utilisateur. Il peut 
aussi vous donner un horoscope journalier en se basant sur les 
courbes sans être obligé de les tracer. 

Les courbes peuvent être sauvées sur disque ou papier. 
Attention ce programme ne fonctionne pas sur 464. 

NB : Le programme d'impression a été testé sur une CITIZEN 120D 





compatible EPSON. 
31,30,31 
BIORYTHM EE S ELITE 
219 IF x MOD 4=9 THEN bi=bii >CD< 
11 224 NEXT HE: 
RE 276 age=agetbi-à.5 FF 
+ 249 IF a=an THEN 270 >66€ 
2h 0 256 IF m3 AND a MOD 4=0 THEN ageza >JHi 
N get 
266 IF mo>i AND an MOD 4=9 THEN age »FJ4 
1 =age+i 
se 276 RESTORE 280:FOR x=1 TO mo:READ ki 
: mo$: NEXT 


286 DATA "JANVIER", "FEVRIER", "MARS >GL< 
"AVRIL", MAIS JUIN", JUILLET", “A 
OUT", "SEPTEMBRE", “OCTOBRE", “NOVEMER 

E", "DECEMBRE" 


—-Cerebral 





CRE TTTT TT TINTIN TT TT >Q8{ is et l'annee desiree sous la forme 296 RESTORE 196:FO0R x=1 TO mo:READ :FM< 
20 ‘ ## #+ ?GC< {04,87}; : “,daÿ Im: NEXT 

36 ‘ ##  BIDRYTHMES #4 >1D 140 J$=LEFTS(d$,2):m$=MID$ (d$,4,2): >MF£ 309 IF 1m=28 AND a MOD 4=6 THEN 1m= >KD4 
49 ‘ #4 #+ >JE<  a$=RIGHTS(d$,2):mo$=LEFT$ (da$, 2): an Imt{ 

56 ‘ #4 CPC 6128 & #4 3LF<  $SRIGHTS (da$, 2) : mo=VAL (moÿ) : an=VAL ( 319 DE 
60 ‘ ++  DMP-2009 ++ >Q6<  an$):a=VAL(a$):m=VAL (m$): j=VAL(j$) 329 ‘* TRACE DES COURBES * LF< 
TO HER >xXH€ 150 RESTORE 190:FOR x=i TO m:READ d 162 330 ?FG< 
8 ‘ »FJ<  uree:NEXT:duree=(duree-j)+1 349 MODE 1:CLS: INK 6,6: INK 1,9:INK  >VHé 
96 ‘ ##44## CALCULS #4###4 ?CK< 2,6:INE 3,24: BORDER 0 

190 ‘ >AB< 160 RESTORE 190:FOR x=1 TD m:READ 1 >LH£ 356 ORIGIN 6,6 ?NJ< 
119 INK 1,9:INK 0,0:BORDER 6:60SUB >CC<  :NEXT:FOR x=m+i TO 12:READ 1:1o=lo+ 368 MOVE 9,1B4:DRAW 640,184,3 2FK£ 
1620 1:NEXT 370 FOR x=0 TO 639 STEF 639/1m PŸLé 
120 LOCATE 1,22: INPUT “ Entrez vo >PD£ 179 RESTORE 196:FO0R x=1 TQ mo-1:REA >HJ£ 2380 MASK 15:MOVE x, 41: DRAM x,307,3: >AM€ 
tre date de naissance sous la forme D du: dur=dur+du:NEXT NEXT 

<05.06.68> : ",d$ 180 age=(lan-a-1)#345)+lotduree+dur 2WK< 399 LOCATE 19,2:PEN 2:PRINT"B I O R EN< 


130 LOCATE 4,24: INPUT “Entrez le mo >DEC 190 DATA 31,28,31,30,31,30,31,31,30 2GL£ YTHMES" 


31 


490 LOCATE 10,3:PEN 2: PRINT "4H 
HAE" 

416 PEN 3:LOCATE 1B,5:PRINT moÿ$;" 
“:1900+an:LOCATE 2,5:FRINT UPPERS(t 
i$):LOCATE 37,5:PRINT 1m 


420 PEN 1:LOCATE 2,24: PRINT"--Physi 2 


que "::PFEN 2:PRINT “--Emotionnel 
“32: PEN 3:FRINT"--Cerebral" 

436 MASK 255:MOVE 0,0:DRAW 0,399, 3: 
DRAW 639,399,3:DRAW 6239,6,3:DRAN 9, 
9,3: MOVE 9,40:DRAW 639,49,3: MOVE 6, 
368: DRAW 639,308,3 :MOVE 0,344: DRAH 
636,344,3:MOVE 161,308: DRAK 161,34 
4,3: MOVE 576,308: DRAN 576,344,3 


4406 MASK 255:MOVE 16,26:DRAW 49,20, 


1:MASK 15:MOVE 192,20: DRAW 231,20, 2 
tMAGK 204:MOVE 439,26: DRAW 456,20, 3 
:MAGK 299:MOVE 576,308: DRAN 576,344 
T 

+ 

456 MASK 255:2=-6.4: MOVE -5,184:FOR 
x=age TO age+lm STEP lm/i00:z=2+6. 
4:Y=SINC(x#24P1) /23)#100 


46 IF «20 THEN MOVE z,y+184 ELSE D à 


RAW z,y+184,1 

470 NEXT 

484 MASK 15:2=-6.4:MOVE -5, 184: FOR 
*=age TO agetlm STEP lm/i40:z=2+6.4 
LVESIN( (x#24PT) /28)#100 


496 IF x€6 THEN MOVE z,y+184 ELSE D > 


RAWN z,y+184,2 

990 NEXT 

919 MASK 204:2=-6,4:MDVE -5,184:FOR 
x=age TO agetlm STEP 1m/164:2=2+6. 
4 Y=SINCCx2XPT) / 33) +160 


926 IF x<0 THEN MOVE z,y+1B4 ELSE D ; 


RAW z,y+184,3 

930 NEXT:date=i 

940 MASÉ 255:MOVE 9,0:DRAH 6,399,3: 
DRAW 639,399,3:DRAW 639,6,3:DRAN 9, 
0,3: MOVE 9,46:DRAW 639,49,3: MOVE 4, 
366: DRAW 639,368,3 

990 IF imp$="0" THEN CALL &AGOO:FR 
INT#B: PRINTH#B:PRINT#8 


560 ‘ de 
970 "APPEL DE COPIE D'ECRAN 
588 ‘ 


990 IF INKEY(B)=6 THEN xx=xx-(639/1 
m)idate=date-i:dx=i 

699 IF INKEY(1}=0 THEN xx=xx+(839/1 
a):date=dateti:dx=-1 

610 IF ch$="T" AND INKEY(54)=6 THEN 
699 

620 IF ch$="T" AND INKEY(69)=à THEN 
:duree=0: 1=0: 10=6: du=0: dur=0: age=à 
1 lm=û: x=0: y=0: z=0:bi=0: age=0: MODE 2 
:60T0 726 


639 IF INKEY(62)=0 THEN nom$=ti$+". : 


BIO":SAVE non$,b, 4CO00, &4000 


32 


2YE< 


NH 


De 


>AK< 


2RG< 


>FJ£ 
>YKX 


AL< 


2NME 
?XN< 


2NFS 


>EQ< 


?EG< 


LH 


ALT 








64% IF INKEY(61)=6 THEN CLEAR INPUT : 


:MODE 2:END 

656 IF xx<0 THEN xx=b:date=i 

bb IF xx>(639-((839/1m)-2}} THEN x 
x=639-(639/1m):date=lm 


676 PEN 3:LOCATE 14,5:PRINT USING " : 


##'sdate: FOR x=xx TO xx+(639/lmi:PL 
OT x,184,2:NEXT:FOR x=xx+((639/1m)# 
dx} TO xx+(639/1m)+(((639/1m)+1)*dx 
PsPLOT x,184,3:NEXT 

68 FOR x=0 TO 160:NEXT:G0TO 596 
690 duree=b: 1=0: 10=0: du=6: dur=: age 
=D: 1m=d: «=0: y=b: 2=G:bi=0:mo=motii xx 
=ÿ 


766 IF mo>i2 THEN mo=i:an=anti:GOTD à 


150 ELSE GOTO 15 
710 
726 ‘xx HOROSCOPE ##4 
730 
74ÿ MODE 2:LOCATE 36,1:PRINT'E I 0 
RYTHME S'LOCATE 34,3: PRINT" (C 
)SMM" 


754 DIM a$(27):CLEAR INPUT:LOCATE 5 > 


,9:FRINT'Date de naissance : “id$iL 
OCATE 5,7: INPUT " 

Entrez le jour de 

sire sous la forme <28.04.87> : ",d 
a$ 

766 j$=LEFTS (d$,2) :m$=MID$ (d$, 4,2): 
a$=RIGHTS (d$, 2} :mo$=MID$ (da$, 4,2): a 
nÉ=RIGHTS (da$, 2) : mo=VAL (mo$) :an=VAL 
(an$} : a=VAL (a$) : m=VAL (m$) : j=VAL (34) 
: Jo=VAL(LEFTS (dat, 2)) 

770 IF d$=da$ THEN RESTORE 288:FOR 
x=1 TO mo:READ mo$:NEXT: GOTO 946 
789 RESTORE 190:FO0R x=1 TO m:READ d 
uree:NEXT:duree=(duree-j}+i 

790 RESTORE 199:FOR x=1 TD m:READ 1 
{NEXT:FOR x=m+i TO 12:READ 1:10=10+ 
L:NEXT 


809 RESTORE 196:FO0R x=i1 TO mo-1:REA : 


D du:dur=dur+du:NEXT 


814 age=((an-a-1)#365)+lotduree+dur ; 


826 FOR x=(a+1900+1) TO (an+i908-1) > 


839 IF x MOD 4=6 THEN bi=bi+i 

844 NEXT 

859 age=agetbi 

86û IF m<3 AND x MOD 4=6 THEN age=a 
ge+i 


870 IF mo:2 AND x MOD 4=9 THEN age= } 


age+i 

886 RESTORE 280:FDR x=1 TD mo: READ 
mo$: NEXT 

899 age=age+jo 

966 phy=SIN( (aget2+P1)/23) :emo=5IN( 
l(age+2+P1)/28):cer=SIN((age#24P1)/3 
3) 


?6Q< 
GR 


>FP4 


>UQ< 


PUR 


FAUX 
FWK< 








910 IF ABS(phy)<@.1 THEN ph=0 ELSE >HL< 

ph=S6N (phy} 

920 IF ABS(emo}<ô.1 THEN em=0 ELSE 2>ZM< 

em=56N (emo) 

93% IF ABS(cer)<@.1 THEN ce=6 ELSE ?NNK 
ce=S6N (cer) 

949 IF ph>6 AND em>9 AND ce? THEN >CP< 
gl. 

956 IF ph>0 AND emo AND ce<é THEN >CQ< 
q=2 

96û IF ph>6 AND em< AND ce>@ THEN ER 
qS 

976 IF ph<@ AND em>5 AND ce>ÿ THEN >GT< 
Lun 

980 IF ph>5 AND em£ÿ AND ce<é THEN ?GUX 
q=5 

996 IF ph:ô AND em:4 AND cetÿ THEN JV 
q=6 

1808 IF ph£ë AND em<é AND ce:6 THEN >UB< 
q=7 

1916 IF ph<ô AND emté AND cetà THEN >UC< 
q=8 

1926 IF ph?6 AND em:6 AND ce=ÿ THEN ?BD< 
q=7 

1636 IF ph:6 AND em=6 AND ce:6 THEN >HE< 
g=19 

1646 IF ph=ô AND em: AND ce>à THEN >YF4 
q=ii 

1950 IF ph:@ AND em‘@ AND ce=à THEN >YG< 
q=12 

1969 IF ph<ô AND em: AND ce=à THEN >AH£ 
g=13 

1676 IF ph£ô AND em=6 AND ceà THEN >CJ< 
g=14 

1686 IF ph=& AND emt6 AND ce:à THEN ?EK< 
g=15 

1696 IF ph=ù AND em>û AND ce<ÿ THEN >GL< 
q=ié 

1166 IF ph:é AND em=4 AND ce‘à THEN ?2C£ 
q=i7 

1116 IF ph£ë AND em<6 AND ce=à THEN >2D< 
g=18 

1126 IF ph<ô AND em=û AND ce‘à THEN ?BE< 
q=19 

1134 IF ph=& AND em£@ AND cetë THEN ?UF< 
q=28 

1148 IF ph:ô AND em= AND ce=û THEN >25 
g=21 

1159 IF ph=@ AND em>0 AND ce=ÿ THEN >BH< 
g=22 

1166 IF ph=& AND em=û AND ce}ô THEN >DJ< 
g=23 

1176 IF ph<{ô AND em=& AND ce=6 THEN >DK< 
g=24 

1186 IF ph=à AND em<@ AND ce=û THEN FL 
g=29 

1190 IF ph=6 AND em=0 AND ce‘ÿ THEN >HM 
q=26 

1206 IF ph=0 AND em=& AND ce=6 THEN >BD< 


q=27 

1219 ‘ 

1229 ‘ #+ PREVISIONS ## 

1230 ‘ 

1248 a$(1}= "Debordant d'energie, v 
ous vous sentez en pleine forme: vo 
tre moral est au plus “+CHR$(9)+"h 
aut, votre esprit est alerte, bref, 

la vie est vraiment belle !* 

1250 a$(2)= "Vous voyez la vieenr 
ose et.comme la forme suit, vous vo 
us montrerez sous "4+CHR$(9)+"vo 
tre meilleur jour! N'hesitez pas a 

entreprendre !" 

1269 a$(3)= "Vous ne manquerez ni d 
e vivacite d'esprit, ni de vitalite 
et vous vous sentirez “+CHR$(9)+"d 
e taiile a surmonter les difficulte 
s : profitez-en pour vous organiser 


1274 a$(4}= “Aide par votre flair e : 


t votre perspicacite, vous portez u 
n regard d'artiste sur “+CHR$(9j+"] 
e monde. Votre sensibilite et votre 
esprit favorisent ia creation." 
1286 a$(5)= "Aujourd'hui, vous r1sq 
uez de ne pas vous sentir tres conc 
erne par ce que vous "+CHR#(9)+"4 
aites ! Alors contentez-vous de men 
us travaux !" 
1294 a$(b}= "L'humeur est bonne et 
favorable aux rencontres, mais vous 
n'avez pas les pieds "“+CHR$(9)+"s 
ur terre ! Frogrammez ce jour-la 50 
rties, expos, cinemas !" 


1366 a$(7)= "Vous posez sur les gen : 


s (y compris sur vous-meme) un rega 
rd juste et lucide. "4+CHR$ (9)+"0 
ptez pour des activites demandant d 
e la reflexion." 
1319 a$(8)= "Vos trois cycles en pe 
riode de recuperation vous donnent 
un certain recul par “+CHR#(9ÿ+"r 
apport a tout ce qui vous entoure. 
Choisissez des activites reposantes 
u 
1326 a$(9)= "Vos relations avec les 
autres sont assez chaleureuses, La 
issez-vous aller à vo- "+CHR$(9)+"T 
re bonne humeur et evitez de prendr 
e des decisions importantes.“ 
1336 a$(16}= "Anime par l'envie d'a 
gir et la volonte d'arriver a vos f 
ins, vous avez quelques "+CHR$(9i+" 
difficultes a supporter les contrar 
ietes où les contre temps." 
1349 a$(11)= “Vous avez l'esprit cl 
air et une facon de reagir positive 
, mais n'en faites pas “+CHR$(9j+" 


dFE< 
>UF< 
>HB< 
>LH< 


QT 


?LF< 


AE 


IN 


UF< 


2YG< 


#AHE 


NÉ 











trop : physiquement, vous risquerie 
z bien de ne pas suivre." 


1356 a$(12}="Vous avez un peu de ma : 


1 a rassembler vos idees et a vous 

faire comprendre. Gare "+CHR$(9)+"a 
ux etourderies. Surtout, reflechiss 
ez avant d'agir !“ 

1360 a$(13)="Laissez-vous guider pa 
r votre humeur qui vous rend optimi 
ste ! Votre jugement  “+CHR#(9)+4"r 
isque de ne pas etre tres sur : ent 
ourez-vous de bons conseils." 

1376 a$(14)="Vous aurez tendance a 

fuir le le brouhaha pour vous retir 
er dans votre tour d'i-"+CHR$ig}+"v 
oire et y reflechir a loisir ! Prof 
itez-en pour faire des projets." 


1384 a$(15)="Vous risquez de vous 1 : 


ever du pied gauche et d'etre mal e 
n point. Mais votre "+CHR$(9)+"s 
ens du devoir prendra le dessus et 
vous fera oublier ce jour gris !" 
1199 a$(16)="Heureusement que vos a 
mis sont la pour vous entourer d'af 
fection et vous prodi- “+CHR$(9)+"q 
uer leurs conseils : vous avez tres 
envie d'etre dorlote !" 
1406 a$(17:="Vous avez du mal a le 
cacher : un rien vous agace ! Evite 
z de vous mettre trop “+CHR$(9)+'"e 
n colere, cela risquerait bien de s 
e retourner contre vous." 


1416 a$(18i="I1 n'y aurait que vous : 


, Vous seriez bien reste au chaud d 
ans votre lit douillet “+CHR#(9)+"t 
oute la journee ! Alors, surtout n° 
essayez pas d'innover !" 

1429 a$(19)="Vous ne vous sentez pa 
5 dans votre asiette. Evitez de pre 
ndre une decision qui "+CHA$(9i+'e 
ngagerait votre avenir... vous pour 
riez vous en mordre les doigts." 
1456 a$(20)="Aujourd'hui, il vaut m 
ieux ne pas compter sur vous pour r 
emuer ciel et terre. “+CHR$(9)j+"L 
ire un bon bouquin au coin du feu : 
c'est tout ce qui vous tente !" 


?DL< 


3RM< 


?BP< 


?GF< 


>RHé 


*EJÉ 


1449 a$(21)="La forme est bonne, ma *2K£ 


is le moral et les idees sont en ro 
ue libre ! Contentez- "+CHR#(9)+"v 
ous de taches routinieres. Vraiment 
cela vaut beaucoup mieux !" 

1458 a$(22)="Votre entourage va ben 
eficier de votre induligence et de v 
os largesses ! Frenez “+CHR$(9i+"q 
arde à ne pas vous laisser rouler ! 
Et, ne soyez pas trop poire i" 
1466 a$(23}="Votre humeur noire et 
vos observations aigres-douces (mem 


3JL£ 


#UM< 





e justifiees} peuvent “+CHR$(9)+"n 
e pas plaire a tout le monde : mett 
ez de l'eau dans votre vin !" 

1478 a$(24)="Vous avez tendance a v 


‘ous poser des tas de questions inut 


iles et a ne pas leur “+CHR$(9)+"E 
rouver de reponse, ce qui risque de 
retenir sur votre humeur !" 
1489 a$(25)="Vous vous demandez si 
la vie vaut bien la peine d'etre ve 
cue ? Ne cherchez "CHR (9)+"s 
urtout pas la reponse ! Livrez-vous 
plutot a vos passe-temps preferes 
ju 
149% a$(26)="La moindre petite cont 
rariete peut prendre a vos yeux des 
allures de catastro- “+CHR$(9)+"p 
he. Recherchez le calme et la solit 
ude par dessus tout !" 


1544 a$(27)="Catte combinaison ne 5 : 


e produit que 8 fois en 254 ans ! Vo 
us avez donc le temps "+CHR$(9)+"d 
e vous y preparer... et de vous en 
remettre ! Alors dorlotez-vous !" 
1519 MODE Z:PRINT'Le “sjos" “smoé: 
“ "s1966+an: PRINT: PRINT: PRINT ‘Fhy 
sique : “ph 

1526 FRINT:FRINT'"Emotionnel : “:em 
1538 PRINT:PRINT"Cerebral : “ice 
1546 FRINT:FRINT:FRINT: PRINT a$iqi 


1559 FRINT:PRINT CHR$(24);" 

Autre jour  B -: Autre biorythme 
C -> Fin  “;CHR$(24) 

1566 x$=UPPERS (INÉEYS) 


1576 IF «x$="A" THEN CLS: duree=t: 1=6 * 


:lo=b: du=b: dur=û: age=û: 1m=û: x=Q: v=4 
:2=0:b1=0:age=0:ERASE a$:GOTO 756 


1586 IF x$="C" THEN CLS:END 

1596 IF x$="B" THEN CLEAR:G60T0 126 
1696 GOTO 156û 

1618 

1624 ‘ #+ PRESENTATION #4 

1650 

1544 MODE ZLOCATE 34, 1:FRINT'E I O0 à 


RYTHME S':LOCATE 36,2:PRINT S 
TRING6$ (19, "-") 
1659 LOCATE 34,3:PRINT"(C) 5,M.M." 


1666 IF ch$="" THEN LOCATE 4,5:PRIN : 


T'Trace, Horoscope où Chargement {T 
/H/C) :" ELSE 60TO 1794 

1674 ch$=UPPERS (INÉEYS) 

1686 IF ch$="T" THEN 1646 


À -; : 





PNN< 


#XP4 


LES 


STHE 


>CR 


1696 IF ch#$="H" THEN LOCATE 4,7: INF :YT< 


UT "Entrez votre date de naissance 
sous la forme <65.66,88; : “,d$ :60 
TO 726 

1768 IF ch$="C" THEN 1728 


AI 


33 


1719 GOTO 1679 
1720 LOCATE 5,18: DIR, "+#.bio" 


1736 LOCATE 4,9:PRINT'Une fois la c 
ourbe chargee :" 

1749 LOCATE 5,11:PRINT CHR$(242);" 
-? Curseur vers la gauche" 

1750 LOCATE 5,13:PRINT CHR$(243);" 
-> Curseur vers la droite" 

1769 LOCATE 5,15:PRINT “D -> Fin“ 


1774 LOCATE 4,7: INPUT "Titre : "ti 
$:non$=ti$+". BIO":MODE 1:LOAD nom$, 
&C000 


1780 LOCATE 38,5: 1mi$=COFYCHRS (#0) : : 


LOCATE 39,5: 1m2$=COPYCHRS (#9) : 1m$=1 
m1$+1m2$: 1m=VAL (1m$) :date=1:60T0 59 
C 


1796 LOCATE 4,5: INPUT'Titre (8 lett > 


res maxi) : ",tifiti$=LEFT$(ti$,8) 


TG 


?1R€ 


1806 LOCATE 4,26:PRINT"Desirez vous ?MK< 


imprimer (O/N) : “+CHR$(143) 
1819 LOCATE 4,7:PRINT'"Une fois les 
courbes tracees:" 


1820 LOCATE 6,9:PRINT"A -> Horoscop »\ 


u 
8 


1836 LOCATE 6,11:PRINT"B - Mois su : 





ivant" 

1849 LOCATE 6,13:PRINT"C - Sauvega >JP< 
rde de la courbe sur disc" 

1856 LOCATE 33,9:PRINT"D -> Fin" ?XQ< 
1869 LOCATE 6,15:PRINT CHR$(242):" HR 
-> Curseur vers la gauche" 

1876 LOCATE 6,17:PRINT CHR$(243)5"  SDT< 
- Curseur vers la droite" 

1880 imp$=UPPERS$(INKEY#) :LOCATE 34, >NU< 
26: PRINT imp$ 

1899 IF imp$="N" THEN RETURN ?1V< 


1906 IF imp$="0" THEN GOTO 1926 ?GL4 


1919 GOTO 1880 ?NM< 
1926 : ?PN< 
1939 ‘ ROUTINE DE COPIE D'ECRAN APP ?EP4 
ELEE FAR <CALL &A090 
1949 ?RQ< 
1956 DATA cd,ba,bb,cd,e7,bb,32,b8,a >G6R< 
9,cd, bc, aÿ,21,8f,01,22 
1966 DATA b9,a0,11,00,00,3e,07,32,b >MT< 
b,a0,cd,77,aû,0e,09, 3a 
1976 DATA bb,aû,47,e5,d5,c5,cd,f6,b >NU< 
b,ci,di,21,bB,aû,be,ei 
1984 DATA 37,20,01,a7,cb,11,2b,2b,1 JV 
9,e9,cd,aa,aÿ,79,cd,ai 





1990 DATA a6,13,e5,21,7#,02,37,ed,5 


2,e1,28,05,2a,b9, a, 18 


2098 DATA cc, 23, 7c,b5,c8,2b,11,00,0 ) 


9,22,b9,a0,3e,07,bd, 20 
2814 DATA b9,7c,b4,20,b5,3e,64,32,b 
b,aÿ,18,ae,3e,ib,cd,al 


2026 DATA aô,3e,31,cd,ai,aô,c9,e5,5 : 


e,42,cd,1le,bb,ei,28,02 
2036 DATA el,c9,3e,0d,cd,ai,aÿ,3e,6 
a,cd,ai,aô,3e,ib,cd,al 
2648 DATA a0,3e,4c,cd,al,a0,3e,7f,c 
d,ai,a0,3e,02,cd,ai,aÿ 


2656 DATA c9,cd,2e,bd,38, fb,cü,2b,b ? 


d,c9,3a,bb, a, fe,07,c8 


2666 DATA af,cb,11,cb,11,cb,11,c9,0 > 


à,00,00,00 
2070 MEMORY L9FFF:RESTORE 1954 


2880 s=0:LOCATE 4,22Z:PRINT CHR$ (24) : 


;"PATIENTEZ UN INSTANT... ";CHR$ (24) 


2099 FÜR i=&A900 TO &ADBE 

2166 READ b$:b=VAL ("&"+b$;:POKE 1,b 
:5=5+b 

2118 NEXT 

2126 IF s<> &5A9B THEN PRINT"ERREUR 
EN DATA"“:END 

2139 RETURN 


CR AUU RE del REZ Te TES 


CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles |! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC”. 
Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 
livres ! 

ATTENTION | Il n'y a pas d'abonnement rétroactif. 
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Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
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